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FOREWORD 


This Final Report provides the results obtained in the Shuttle Cryogenics Supply 
System Optimization Study, NAS 9-11330, performed by Lockheed Missiles & Space 
Company (LMSC) under contract to the National Aeronautics and Space Administration, 
Manned Spacecraft Center, Houston, Texas. The study was under the technical 
direction of Mr. T. L. Davies, Cryogenics Section of the Power Generation Branch, 
Propulsion and Power Division. Technical effort producing these results was 
performed in the period from October 1970 to June 1973. 


The Final Report is published in eleven volumes*: 


Volume I 

Volumes n, HI, and IV 

Volume V A-1 and V A-2 

Volume V B-1, V B-2, V B-3, and 
V B-4 

Volume VI 


— Executive Summary 

— Technical Report 

— Math Model - Users Manual 

— Math Model - Programmers 

Manual 

— Appendices 


The LMSC Staff participants are as follows: 

Study Manager 
Subsystem Evaluations 


Integrated Systems 
Component Analyses 


L. L. Morgan 

C. J, Rudey 

D. P. Burkholder 
C. F, Merlet 

W. H, Brewington 
H. L. Jensen 
B. R. Bullard 
F. L. Bishop 


*The Table of Contents for all volumes appears in Volume I only. Section 12 in 
Volume in contains the List of References for Volumes I through FV. 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


Thermodynamics 


Thermal Protection 
Fluid E>ynamics 
Propellant Acquisition 
Design 

Structural Analysis 

Instrumentation 
Reusability /Reliability 
Failure Modes and Effect Analyses 
Requirements and Criteria 
Safety and Mission Completion 
Math Model 


Cryogenic Cooling Subtask 

Subsystem Evaluation 
Component Analysis 

Thermodynamics 
Thermal Protection 


iv 


G. E. .Heuer 
R. M. Vernon 
J. Gries 
D. R, Elgin 
G. E. Heuer 
R. Cima 

D. P. Burkholder 
R. Cima 
M. P. Hollister 
R. K. Grove 
R. A. Michael 
M. L. Vaughn 

C. C. Richie 
R. R. Gaura 
R. F. Hausman 

D. C. Saunders 
C. F. Merlet 
C. F. Merlet 
R. F. Hausman 
J. McKay 


H. L, Jensen 
G. Heuer 
AiRe search 
R. Cima 
G. E. Heuer 


LOCKHEED MISSILES 8t SPACE COMPANY 


LMSC-A991396 


CONTENTS 

Section Page 

FOREWORD iii 

ILLUSTRATIONS vii 

TABLES Ijj 

1.0 INTRODUCTION 

1.1 Program Description 

1.1.1 Program Purpose 2-2 

1.2 Program Stinicture 2_2 

1.2.1 Program Input Data Logic 1_2 

1.2.2 Program Computation Logic 1_7 

1.3 Common Description 1_7 

1.4 Program Operational Sequence 1_13 

1.4.1 Program Initiation and Control 1-13 

1.4.2 Program Sequencing Subroutine 1-15 

1 . 5 Input Data 1-4 1 

1. 5. 1 Input Data — Card Definition and Description 1-42 

1. 5. 2 Input Data Card and Format Description 1-67 

1.5.3 Table Data Cards 1-94 

1.5.4 Use of Program Files and Data Files 1-101 

1. 5. 5 Sample Input Data Deck Listing 1-106 

1.5.6 Data Table Deck Listing 1-106 

1.6 Input Deck Setup 1-132 

1.6.1 Single System Deck 1-132 

1.6.2 Multiple System Deck 1-132 

1.7 Math Model Program Machine Requirements 1-134 

1.7.1 Segmented Overlay Procedure 1-134 

1.8 Program Restrictions 1-140 

1.8.1 Program Analytical Range 1-140 

1.8.2 Table Data Limits 1-140 

V 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


Section Page 

1.8.3 Tape and Drum Assignments 1-141 

1.8.4 Data Table Tape Preparation 1-141 

1.8.5 Data Table Tape Utilization 1-142 

1.8.6 Drum and Disc Utilization 1-143 

1.8.7 Error Messages 1-144 

1.8.8 Error Diagnostics 1-146 

1.8.9 Preset Error Terminations 1-147 

1.9 Subroutine Descriptions 1-149 

1. 9. 1 Breakdown of Subprogram Descriptions 1-149 

Function A FUNC 1-152 

Subroutine APUFL0 1-153 

Subroutine APUSUB 1-157 

Subroutine APUSUP 1-162 

Function ARACYL 1-172 

Function CFTW 1-173 

Subroutine CMPCAL 1-177 

Subroutine C0MFL0 1-190 

Main Program C0NTRL 1-193 

Subroutine C0NSUM 1-196 

Subroutine CRYC0N 1-198 

Function CYLHED 1-200 

Function CYMSPH 1-200 

Function CYLNDR 1-200 

Function CYLSPH 1-200 

Function DIAG 1-201 

Subroutine ECLSS 1-203 

Function ELIPSG 1-217 

Subroutine FINTAB 1-218 

Subroutine FL0RAT 1-221 

Function FRCj&NE 1-224 

Function FRHEAD 1-224 

Subroutine FUELCL 1-225 

Subroutine GASGEN 1-236 

vi 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


Section Page 

Subroutine GETC)Z!N 1-239 

Subroutine GOMTRY 1-241 

Subroutine HEATEX 1-247 

Subroutine HEXELC 1-259 

Subroutine HEXFZl 1-263 

Function HFUNC 1-269 

Function HSPHER 1-269 

Subroutine INTAB 1-270 

Subroutine L(25CAT 1-276 

Subroutine LSSCMP 1-280 

Subroutine LWEGHT 1-287 

Function MIPE 1-290 

Function SPHERE 1-297 

Subroutine PARPMP 1-298 

Subroutine SPHSEG 1-307 

Subroutine ST0C0N 1-312 

Subroutine TANK 1-314 

Subroutine TC0ND 1-325 

Subroutine TEL 1-324 

Subroutine THKWTG 1-333 

Subroutine TKGE0M 1-338 

Subroutine TNKWTA 1-342 

Subroutine TURBN 1-354 

Subroutine VENT 1-358 

Function VFUNC 1-362 

2.0 MATH MODEL SAMPLE PROBLEM 2-1 

2. 1 The Problem Statement 2-1 

2. 2 Problem Outline Data Acquisition 2-3 

2. 2. 1 Sample System Data 2-3 

2.3 Problem Data Deck 2-9 

2.4 Problem Table Data Requirements 2-9 

2.5 Problem Data Output 2-13 

2.5.1 Output Description 2-13 

vii 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


Section Page 

3. 0 LffiRARY ROUTINES AND SUBPROGRAMS FROM 

OTHER SOURCES 3-1 

3. 1 Lockheed System Routines 3-1 

3.1.1 Subroutine Date 3-1 

3. 1. 2 Subroutine T0D 3-4 

3. 2 UNIVAC Math Routines 3-6 

3.3 NBS Tab Code Routines 3-6 

3. 3. 1 Hydrogen Thermodynamic Properties 

Routines 3-6 

3.4 University of Idaho — and Ng Thermodynamic 

Properties Program 3-7 

3.4. 1 Description and Use of Subprograms 3-8 

4.0 REFERENCE 4-1 


vm 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


ILLUSTRATIONS 


Figure 


Page 

1. 2-1 

Major Program Structure 

1-3 

1. 2-2 

Source Data Preparation Sequence 

1-5 

1. 2-3 

Program Input Requirements By T3q>e of Data 

1-6 

1.3-1 

Table of Fortran Procedure Definition Processors 

1-10 

1.3-2 

Fortran Procedure Tables 

1-11 

1.3-3 

Fortran Procedure Definition Processor CFUEL 

1-12 

1.4-1 

Flow Chart for Subroutine C0NTROL 

1-17 

1.4-2 

Flow Chart for Subroutine C0MPIL 

1-19 

1.4-3 

Flow Chart For Subroutine CRYC/CN 

1-21 

1.4-4 

General Flow Chart for ACPS-OMS System Analysis 

1-29 

1. 5.2-1 

User ID Card Case Title Card 

1-76 

1.5. 2-2 

Tabe Data Cards 

1-77 

1.5. 2-3 

Alternate Table Data Input Table Data Deck 

1-78 

1. 5. 2-4 

Alternate Table Data Input — Table Data Deck 

1-79 

1.5. 2-5 

System Definition Input Card 

1-80 

1.5. 2-6 

Configuration Definition Data Cards 

1-81 

1.5. 2-7 

Duty Cycle Definition Data Card 

1-82 

1.5. 2-8 

Engine Consumer Data Cards 

1-83 

1.5. 2-9 

APU Consumer Data Cards 

1-84 

1.5.2-10 

Life Support Consumer Data Cards 

1-85 

1.5.2-11 

Fuel Cell Consumer Data Cards 

1-86 

1.5.2-12 

Tank Characterization Input Data 

1-87 

1.5.2-13 

Tank Geometry Input Data Cards 

1-88 

1.5.2-14 

Accumulator Characterization Input Data Cards 

1-89 

1.5.2-15 

Heat Exchanger Characterization Data Input Cards 

1-90 

1.5.2-16 

Pump and Turbine Characterization Data Input Cards 

1-91 

1.5.2-17 

Heat Source Characterization Data Input Cards 

1-92 

1.5.2-18 

Motor Characterization Data Input Card 

1-93 

1.5. 3-1 

Hydrogen Electrical Heater Heat Transfer Performance 

1-95 

1.5. 3-2 

Table Data Input Card Format 

1-97 


ix 


LOCKHEED MISSILES 8f SPACE COMPANY 



LMSC-A991396 


Figure 


Page 

1. 5.4-1 

TCIMM Run Deck Set-up To Use Program File 
and Data Table File 

1-104 

1. 5.6-1 

Listing of the Data Table 

1-109 

1.6. 2-1 

Multi-System Data Deck 

1-133 

1.8-1 

Diagnostic Trace Illustration 

1-145 

1. 9-1 

APUFL0 Flow Chart 

1-156 

1. 9-2 

APUSUB Flow Chart 

1-161 

1. 9-3 

Flow Chart for APUSUP 

1-169 

1. 9-4 

Flow Chart for Subroutine CMPCAL 

1-186 

1. 9-5 

Flow Chart for Subroutine ECLSS 

1-213 

1. 9-6 

Flow Chart for FINTAB 

1-220 

1. 9-7 

Flow Chart for Subroutine FUELCL 

1-233 

1. 9-8 

Flow Chart for Subroutine G0MTRY 

1-244 

1. 9-9 

Flow Chart for HEATEX 

1-251 

1. 9-10 

Flow Chart for HEATEX 

1-257 

1. 9-11 

Flow Chart for HEXELC 

1-26 2 A 

1. 9-12 

Typical Freon — 21 Cryogenic Heat Exchanger Design 

1-264 

1. 9-13 

Flow Chart for INTAB 

1-275 

1. 9-14 

Flow Chart for L0CAT 

1-279 

1. 9-15 

Flow Chart for Subroutine LSSCMP 

1-286 

1.9-16 

Program for Subtable Setup 

1-293 

1. 9-17 

Flow Chart for MIPE 

1-296 

1. 9-18 

Flow Chart for PARPUMP 

1-304 

1. 9-19 

Flow Chart for SPHSEG 

1-310 

1. 9-20 

Typical Subroutine TANK Output 

1-318 

1.9-21 

Flow Chart for TANK and TSIZEI 

1-323 

1. 9-22 

Flow Chart for Subroutine TEL 

1-332 

1. 9-23 

Flow Chart for TNKWTG 

1-336 

1. 9-24 

Flow Chart for TKGE0M 

1-341 

1. 9-25 

Flow Chart for TNKWTA 

1-348 

1. 9-26 

Diagram of Tank Geometry Routine Linkage 

1-353 

1. 9-27 

Flow Chart for Subroutine Vent 

1-361 

2. 1-1 

Attitude Control Propulsion System 

X 

2-2 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


TABLES 


Table 


Page 

1.2-1 

Cryogen Systems — Component Similarities By Kind 

1-8 

1.4-1 

Data Table Selection "ECHO” 

1-14 

1.4-2 

CRYC0N Execution Sequence for ACPS Analysis 

1-26 

1.4-3 

CRYC0N Execution Sequence for an APU Subcritical 
System Analysis 

1-35 

1.4-4 

CRYC0N Execution Sequence for an APU Super- 
critical System Analysis 

1-37 

1.4-5 

CRYC0N Execution Sequence for a Life Support 
System Analysis 

1-38 

1.4-6 

CRYC0 Execution Sequence for a Fuel Cell 
System Analysis 

1-39 

1. 5.2-1 

Variable Namer Employed for Control, Branching, 
and Switching Purposes 

1-68 

1.5. 2-2 

Configuration Variable Names and Definitions 

1-71 

1.5. 3-1 

Electrical Heat Exchanger — Heat Transfer 
Performance for Hydrogen Gas 

1-96 

1.5. 3-2 

Heat Transfer Performance Data for Hydrogen 
— Data Table Number 20 

1-100 

1.5. 5-1 

ACPS Input Data Deck Listing 

1-107 

1. 7. 1-1 

Math Model Map Overlay 

1-136 

1. 7. 1-2 

Loading Addresses for Segmented Overlay 

1-138 

1. 7. 1-3 

Computer Drawn Overlay Map 

1-139 

2.2-1 

ACPS Duty Cycle 

2-4 

2.2.2 

Configuration for ACPS — Oxygen Side 

2-10 

2.2-3 

Configuration for ACPS — Hydrogen Side 

2-11 


xi 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


Section 1 

INTRODUCTION TO THE CRYOGENIC INTEGRATED MATH 
MODEL PROGRAM (TCIMM) 

1.1 PROGRAM DESCRIPTION 

The Integrated Math Model for Cryogenic Systems is a flexible , broadly applicable 
systems parametric analysis tool. The program will effectively accommodate systems 
of considerable complexity involving large numbers of performance dependent variables 
such as are found in the individual and integrated cryogen systems. Basically, the 
program logic structure pursues an orderly progression path through any given system 
in much the same fashion as is employed for manual systems analysis. 

The system configuration schematic is converted to an alpha-numeric formatted con- 
figuration data table input starting with the cryogen consumer and identifying all 
components, such as lines, fittings, valves, etc. , each in its proper order and ending 
with the cryogen supply source assembly. Then, for each of the constituent component 
assemblies, such as gas generators, turbo machinery, heat exchangers, accumulabors , 
etc. , the performance requirements are assembled in input data tabulations. Systems 
operating constraints and duty cycle definitions are further added as input data coded 
to the configuration operating sequence. Characteristic performance data over the range 
of temperatures , pressxires and flow rates of interest for each of the functional component 
assemblies , is input to the program or table lookup data arrays to be called as needed 
in the analysis sequences. The use of table lookup data combined with closed-form 
solution analysis, where needed, permits the rapid computation of the desired parameters 
as the analysis proceeds through the system configuration. 

The program will size the system to fit the operating demands and constraints and 
produces as output the component and system hardware size and weight, propellant 
(or reactant) weight, vented fluid weight, and such analytical information (i.e. , computed 
performance values) as may be desired. The analytical results are displayed both as 
time dependent data tabulations and summary table data. 
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1.1.1 Program Purpose 

The intended purpose of the program is to provide an analytical tool which permits 
rapid parametric evaluation of the various types of cryogenics spacecraft systems cur- 
rently under study in the national space program. The mathematical techniques built 
into the program provides the capability for in-depth analysis (combined with rapid prob- 
lem solution) for the production of a larger quantity of soundly based trade-study data 
than normally would be obtained in hand calculations. Program flexibility in accommo- 
dating advanced systems resides in its modular type programming which permits pro- 
gram growth with simple addition of new subroutines and the addition of variables to 
existing common banks. Conversely, the program is easily dismantled if it is desired 
to limit analysis to only one or two systems and utilize a smaller computing machine. 

In summary, the purpose of the program may be said to be that of providing an improved 
general analysis tool for cryogen technology applications, 

1.2 PROGRAM STRUCTURE 

The Integrated Math Model for Cryogenic Systems consists essentially of three major 
sections as illustrated in Figure 1.2-1. Within each of the major sections the structure 
is further broken into block subsections, each of which is reserved for specific functions 
of data management, data utilization or analytical data display. 

1.2.1 Program Input Data Logic 

Of necessity, the program requires a rather large data bank capable of providing charac- 
teristic performance data for the wide variety of component assemblies found in typical 
cryogen systems. 

Program data requirements for the Integrated Math Model are divided into two types. 

The first type consists of the "semi-permanent" data tables which the program employs 
to compute performance, weight, property, and other characteristics as a function of 
up to four variables per run. 
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PROGRAM ITIPUT 


SYSTM(S) COIfFIGURATION 
INPUT PAR/LT.aLTERS (I'ACK SYSTEM) 

TABToE DATA BANK (PUNCTIONAL PROPERTIES DATA) 
PROGRA.M OPTIONS ( INPUT/OUTPUT CONTROL) 
PROGRAM IfETRUCTIONS (COMPUTATION OPTIONS) 


PROGRAM COMPUTATION 

MASS TRAI'ISFER - ENERGY REQUIREMENTS ~ FLUID 
STATE DETiCPJKENATION - TTIERIvIODYNAIirC PROCESSES - 
RESIDUAIS - FLUID FLOW COfOTITATIONS - HEAT TRANSFER - 
SIZING CALCULATIONS - E/EIGHT DETERMINATIONS - 

- E-OR - 

CRYOGEinC CONSUMER - LINES - FITTINGS - CONIROIS - 
ACCUMfJLATOIiS - HEAT EXCHANGERS - GAS GENERATORS - 
TLIRBINllB - MOTORS - PUMPS. FLUID CONDITIONERS - 
FLUID TAIflCS - PRESSURIZATION PROCESSES - ACQUISITION 
DEVICES - GAS PRESSURE BOTTLES 


PROGRAM OUTPUT 


OUTPUl' FOPaMAT - HARD COPY 

- PLOT COPY 

- TAPE GENERATION 

- DWT4 STORAGE 

PARAMETRIC RECYCLE - DATA RETRIEVAI, 


FIGURE 1.2-1 MAJOR PROGRAM STRUCTURE 


LOCKHEED MISSILES & SPACE COMPANY 









LMSC-A991396 


The table data bank contains the necessary component performance characterization 
data for the system configurations to be considered, as well as the required cryogen 
properties data and required material properties data. 

The "source data", as obtained, is verified as being authoritative, and is then processed 
into a formatted tabular array which specifies the table name, ID codes, the dependent 
variables, and the independent variables — in order of use. The tabulated array data is 
carefully ordered such that curve fitting routines can extrapolate data points with good 
accuracy and speed. The prepared data array is punched into data card decks and veri- 
fied for correctness. The procedure is illustrated in Figure 1.2-2. All data tables are 
logged as to reference, source, date of data acquisition, and pertinent data limitations 
such as range of application, etc. 

Since a large volume of table data can be required by the program, a unique data man- 
agement set of subroutines is employed to retrieve any particular table and extract the 
required information with remarkably high speed and accuracy. Additionally, a machine 
plotted and/or printed tabulation "echo" of the tables can be requested for easy table 
input checking. 

The program currently contains forty-six tables and currently will accommodate up to 
fifty tables for a total of 7000 words. 

The second type of input data is "variable" and contains the variable input parameters 
which may be perturbated for parametric system studies. These data include duty 
cycle characteristics, configuration description, and operational requirements of the 
system being studied. The variable input values are printed out just prior to the sys- 
tem computed data output as a means of input verification. 

The general program input data requirements by type of data and source is illustrated 
in Figure 1.2-3. 
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COMPONENT CHArtACTFFtTy.ATION DATA 




t^cmiiCE 

DATA 

PUMP WOT 




ftouacE 

DATA 

tvaiiiN- x^ 

IKTEKNAL 

ENKtlGY 



.TAID.K 
IMTA 
PUMP WGT 
<ip * 215 
X Y 



CUVOC'iKN PROPERTIES DATA 


'I'APLK 
DATA 
CRVa iEN 

P= 0.2C 
X Y 


MATKRLM.S PROr»EHTIE}> DATA 





FIGURE 1.2-2 SOURCE DATA PREPARATION SEQUENCE 
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-LMSC DATA 
— NASA DATA 
-NATlONAT. i.Al'.S DATA 
-Sl'I'Pl.lKH DATA 
TIIKOHKTrCAI. I'ATA 
hTKS r DATA 


J- 


MISSION DEFINITION- 


SUl'!-('[:_DATA 

7T7.\n \)N FNT 

CllAKACTEHI- 
/ATION DATA 
riD'CH' KN 

MA'n. paOJ’ 
OTIIVT? 


'J'Ani.l' DATA 


BASIC KNGIN'KKIUNC. 
AKAI.YSIS. TIIKHM. 
TOP. FLL'TO 


SYSTEM SCHEMATIC _ 
R NC 1IONA L SKQF ENCi; 


~|5». 


DFTV CYCLE 
l)K FINITION 
^>1 


CCAU'ONKNT 

PAHAMETERS 


CONKiCLHATlON 

SKQrKNCE 

CAS 

FtKi, c:kll 
LINK 
ITTriNC 
LINK 

CONI'UOr. 

UNR 

TAP 




PAKAMKTIUC 
SYSTEM ANALYSIS 
OCTPLT DATA 






- 


FIGURE 1.2-3 PROGRAM INPUT REQUIREMENTS BY TYPE OF DATA 
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1.2.2 PROGRAM COMPUTATION LOGIC 


In order for the Integrated Math Model to accommodate the possible range of cryogenic 
systems likely to be considered and perform as a general systems analysis tool, the 
following three premises are established: 

(1) Any logical combination of supply tanks, lines, fittings, valves, regulators, 
heat exchangers, gas generators, pumps, accumulators, and "cryogen- 
consumer" components can be specified as a system configuration point. 

(2) The "cryogen-consumer" component may be any of the components being 
supplied with cryogenic fluids. 

(3) An integrated cryogenic system may contain a number of similar and/ or 
different cryogen subsystems to be fed from a common cryogen supply 
source. 

Although these premises appear to force the generation of a very large program, an 
examination of the six basic individual cryogen system concepts reveals a marked 
similarity and commonality of components by kind. Table 1.2-1 illustrates adequately 
the fact that there are less than twenty-five kinds of major component assemblies to 
be considered, additionally, the temperatures, pressures, and flow rates are for the 
most part within reasonable range spans, thus further reducing the quantity of data to 
be manipulated. 

1.3 C0MM0N DESCRIPTION 


The program makes use of a number of defined common storage blocks in order to 
provide for the relatively large amount of data input, storage and transfer which 
occurs in the various subprograms. These C0MM0N blocks are defined only once in 
F0RTRAN PROCEDURE DEFINITI0N PR0CESS0RS (PDP’s) and thereafter are trans- 
ferred to any using subprogram by the use of the F0RTRAN INCLUDE statement. The 
form of the F0RTRAN procedure employed is described in the following paragraph. 

FORTRAN PROCEDURE. A FORTRAN procedure contains FORTRAN source 
language that is to be included in a compilation by use of the FORTRAN 
INCLUDE statement. Athena FORTRAN V includes the COMPILER statement 
which allows the searching of other files for the procedure(s). The form of 
the statement is: COMPILER (LIB = FNl, FN2, . . . . , FNN) where FNl is of 
standard file-name form QUAL*FILE1/KEY1/KEY2. This causes FNl, . . . , FNN 
to be searched after the file containing the source input and before the library. 

If no definition is found in the search of these files, the compiler gives an 
error indication. 
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COMPONENT LIST 

AC PS 

APU 

FUEL CELL 
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The FORTRAN procedure has the form: 

@PDP, LFI EL 

AA* PROG .^ENTRiT point must begin in column 1, 

(FORTRAN statements) 

END .-j^END statement must begin in coliamn 2. 

An entry will be made in the program-file FORTRAN procedirre table for the 
label AA. 


The PDF's employed in the program together with the data of latest up- 
date are listed in Figure 1.3-1- An example of the FORTRAN PR0GEDURE TABLE 
in which the compiler has specified the LINK and L0CATI0N for the PGP's 
is illustrated in Fig. 1.3-2. 

The PGP will contain, usually, PARAMETER statements, declaration statements 
for REAL or INTEGER variable names, C)6 mm 0N definitions and LABELS, LOGIGAL 
statements, DIMENSION and EQUIVALENGE statements, and, quite often a series 
of G0MMENT cards which may conveniently define the variable set listed in 
the labeled G0MM0W, An example of a program PDP is given in Fig. 1.3-3- 
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61S7I7*TPFS element TABLE 

D NAME VERSION 

CACCUM 
• CAPU 
CCNFIG 
CCNTRL 
CDCYCL 
CENG 
CFLRAT 
;CFluio 
CHEX 

chtx 

CHSORC 

CIount 

CKEYS 

cmatrl 

Cmotor 

CONST 

CPAGE 

CPUMP 

CSYSWT 

CTAB 

ctaba 

CTANK 

CTURBN 

DUMMY 

SPUMP 

tablok 

tankwt 

CECLSS 

CFUEL 

CNAMES 


TYPE 

DATE 


FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 


MAR 

73 

FOR 

PROC 

n 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR PROC 

• 3 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

»3 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

f3 

MAR 

73 

FOR 

PROC 

13 

MAR 

73 

FOR 

PROC 

t3 

MAR 

73 

FOR 

PROC 

»3 

MAR 

73 

FOR 

PROC : 

28 

MAR 

73 

FOR 

PROC 

28 

MAR 

71 

FOR 

PROC 

28 

MAR 

73 


Figvire 1.3-1 Table of Fortran Procedure Definition Processors 
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FORTRAN procedure TABLE 


Name 

location 

link 

CACCUM 

SO 178 

1 

CCNTRL 

S3I7M 

H 

CENG 

S17m 

6 

CFUEL 

I72S38 

266 

CHTX 

SM7M2 


CMATRL 

SS186 

m 

CONST 

SS9I8 

16 

C5VSWT 

Sft7S8 

19 

ctank 

S7262 

22 

SPUMP 

S8242 

2S 

name 

LOCATION 

LINK 

CAPU 

S0S70 

2 

COCYCL 

smsN 

S 

CFLRAT 

sMom 

7 

CHEX 

sm26 

9 

CIOUNT 

SS2I8 

12 

CMOTOR 

SS062 

IS 

CPAGE 

SS97N 

17 

CTAB 

S6926 

20 

CTURBN 

S779N 

21 

TABLOK 

S8298 

26 


Name 

location 

link 

CCNFIG 

SI 970 

1 

CECLSS 

172006 

26S 

CFLUIO 

SM0R8 

8 

CHSORC 

SM8SN 

1 1 

CKEYS 

SS1S8 

11 

CNAMES 

162906 

262 

CPUMP 

S6I98 

18 

CTABA 

S7206 

21 

Dummy 

S8IS8 

2M 

tankwt 

S8126 

27 

Figiire 1.3-2 

Fortran Procedure 

Tables 
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I 

M 

to 


@PDP,IFL .CFUEL 
I CFUEL* f'f:0C 

P C 

3 PAHAHETEF l.FC = IP. LFn = 2 

C 

E F>EAL fiPFC 

6 <: 


7 


COFMnN /Cl FUEL/ 

SRCFC . MRFC t POWTOT. URFORP 

8 


1 

pkwi:ax» ofctut» ootfc » tfriin 

P 


2 

TFUfC . PFOFC » PFHFC , OTOTR 

10 


3 

DQAMiNf TKOMAX, TKHriAX. GMXTKO 

1 1 


M 

WDTr.FK» WOCHP t WHChP » POUMAX 

12 


S 

VIORSRVt UHRSRVf OLFAKO. OLEAKH 

1 3 


6 

V;ovfNT» I'.’HVEMTt 9PWTI . 5PWT2 

1 u 
IF 
16 

/• 

7 

SPV-TFO FCWGT ♦ PRFCOP 

K. 

COI'MON /CVFUFL/ 

WRF (LFO fUOTFCOa.FC) ♦WDTFCH 

17 


1 

OAVAIL(LFC) f WOTF? 1 (LFC) tPRFCUN 

18 


2 

TK02WC. (LFC ) f TKH?WD(LFC ) ♦PCWOO? 

1 9 


3 

Rl iOT02 ( LFC ) f RHOTH? ( LFC ) » DODWO 

20 


M 

TKO (LFOfTKH (LFC)»HTKO 

21 


F 

0 1 ODTR ( LFC ) f 0 1 UOTR ( LFC) t WOT 1 FO 

22 


6 

QROpTRlLFC) »02MDTPfLFC) fWDTPFO 

23 


7 

CSRVFC(LFC) tCSBVFHf LFC) fFHIFOP 

2M 


8 

OSUMR (LFC) tDOANFT(LFC) .RHOFI l 

2S 


R 

VITRF.S (LFD) »VOLTNK(LFD) »AREATF 

26 


T 

OLKH (LFC) *WRTOT| (1 FP) . PTATK 

27 


1 

WCIRCF (LFD) fRHOFTUa.FC ) fV.'TPVT 

28 

29 

c 

2 

WORFP (LFOf WHRFP(LFC) 

30 

C. 

■ft**** 


31 

c 

* 


32 

c 

* 


33 

3U 

3F 

c. 

t 

END 

***** 



. woconSf wHcoMSf 

. tfpiolu TForr . 
♦ nrxcrst WF2IMX. 
. OMXTKH. WDTCFO. 
. PEl.TCPf WRRSRV. 
. VJVMO . W''HH 
fiFCOP ♦ MFf.STH ♦ 


LFc ) ,wDnTMx(i,.rn) . 
I.FH) .TFCNOrULFO) t 
LFr).PcwnM2(i_rr)f 

LFOrDOnWH (LFC). 
[LFD-HTKH (LFD* 
i.rr ) tWDTirH(LFf. ) . 
l-Fr ) .WDT?FH(LFC ) . 
i.rr) »PHiFH2(i.ro . 
l.rn) tRHOFlri(LFn) ♦ 

l.rn).OLKO (LFO. 
L.rn).r*rAvJ (I.fd), 
LFn),ViTV.) I LFO). 


FIGURE 1.3-3 FORTRAN PROCEDURE DEFINITION PROCESSOR CFUEL 
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1,4 PBOGRAM OFE RATIONAL SEQUENCE 

The program capability for accommodating a number of different kinds of 
systems analysis, derives from the use of built-in sequencing indices. The 
indices are stored as data statements in subroutine STj^DTA, and are readily 
available to a programmer or knowledgeable program-user for restructuring, 
if necessary. The indices are used by the various system analysis subprogrms 
to direct the analysis from one set of procedural steps to the next in a 
preprogrammed manner. The details of the program operational sequence for 
the various systems to be analyzed are explained in the following subpara- 
graphs . 

1.4.1 PROGRAM INITIATION AND CONTROL 

Program initiation is accomplished through by the driver subroutine CQtoRL. 
This subroutine initializes the data storage subroutines and reads the first 
card of the input data deck for the user's name and program title. Follow- 
ing this a call to subroutine IWTAB reads in table data deck (or file) to 
storage. As a check on the correctness of the data table input, subroutine 
IIWAB caiises an "echo" printoiit of the selected table numbers to be printed 
for visual reference, A typical "echo" print is illustrated in Table 1.4-1, 
Note that the echo" also permits verification of the number of words in any 
given table, thus aiding the user in troubleshooting incomplete table entries. 
C0NTRL then reads in the name and type of system to be- evaluated. This is 
followed by a call to subroutine Cj^MPIL which reads into core the cryogen 
system input data deck containing the system duty cycle, configuration 
sequence, and pertinent system and component parametric information. 
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TABLE 

DATA. TABLE SELECTION "ECHO" 


TA3LP 

TITIX or TABLE 

NIIMDER OF 

NUMBER OF 

number of 

ra'i’3Ef> 


DIMENSIONS 

SURTARLES 

WORDS 

1 

rc5-ti;ru<;ter weight 

M 

6 

122 

2 

RCS-VAC. SP. IMPULSE 

3 

3 

68 

3 

SFFC.I:T/iB op n? REfinVED 

3 

S 

206 

‘1 

5PFC.I:T/L3 of H2 removed 

3 

S 

IPM 

5 

TFI'P. /LP.. OF 02 REMOVED 

3 

s 

IRM 

6 

TFMP. /Ln. OF H2 removed 

3 

s 

|R2 

7 

Rf;/ VS Pr.GW’/RfPAMBf PCHP 

S 

12 

OS 

8 

KK VS FGf,|M/R»PAMB,FCi;P 

S 

12 

9S 

9 

Ot!S FMGIME '.'FIGHT 

3 

3 

sn 

10 

OHS VAF. SP. IMPULSE 

3 

3 

6B 

1 1 

HEX Hr.T GAS PLOW - L02 

S 

2M 

133 

12 

HEX HCT ,',AS PLOW - LM2 

S 

12 

71 

13 

GAS GEI'-EPAToR weight 

M 

10 

220 

m 

L02 TF.A.'ISFEn PUMP WEIGHT 

S 

8 

130 

IS 

L!I2 T|..Ar;SFFP PUMP WEIGHT 

S 

8 

1 38 

16 

liOTOP WEIGHT 

3 

S 

1 ?n 

17 

VAC.JAC.niA.VS.WEIGHT 

2 

1 

3M 

18 

PHI - HYDP.OGFfl 

3 

s 

172 

19 

Temp, of N 2 vr. rho f(p> 

3 

s 

180 

20 

l'T.XFt;i:.rCEF.-H2 

3 

M 

106 

21 

liT.y.PER.CC'EF.-02-N2 

3 

M 

1 38 

22 

PTU op 321 /3M7 ST. STEEL 

2 

1 

32 

23 

FTU OF 2?I9-TB7 ALUH. 

2 


36 

2'l 

FTH OF 606I-T6 ALUHIflUH 

2 

1 

30 

2S 

FTH OF IMC0IIFL-7IR 

2 


30 

26 

FTU OF TI-6AL-MV 

2 


30 

27 

HEAP COEFFICIENT VS NS 

2 


3M 

28 

APlABATlr. FFF, VS MS 

2 

1 

UM 

29 

FPFIC. 0U0T.V5 IMP. DIAfl 

2 


M6 

30 

BASE I.IWF STAGE Wf VS DI 

2 


28 

31 

saturated steam. T.VS P, 

2 

1 

U6 

32 

SP.M"’'. OF 0-H COMB. PROD.. 

3 

M 

1 IM 

33 

oxvGo; ii'.tf.iuial enfp.gy 

3 

S 

166 

3‘l 

IIYPPOGF.M INTFtlNAL ENERGY 

3 

S 

2*6 

35 

OXYGEN INTtT;/;AL ENERGY 

3 

s 

|M2 

36 

OXYGE!'; VAPnp PMESSURF 

3 

s 

166 

37 

MYPr.OCFW VAPOR PnFSSUKE 

3 

s 

216 

38 

OXVr,~i-; VAPOR PRESSURE 

3 

s 

IM2 

39 

enthalpy of 1.02 

2 

1 

M6 

MU 

FNTH.'.LPY &p I.H2 

2 

1 

2M 

M 1 

FMTH.ALr-Y OF HFLIUM 

3 

s 

IMP 

M2 

OXYGE,.; tfiTHAl.PV (GAS) 

3 

s 

98 

M3 

HYr-KOGFH ENTHALPY (GAS) 

3 

s 

122 

MM 

peta factor 

2 

1 

28 

MS 

SIGr.A-rEl.TAP FOR HEXFLC 

3 

s 

172 

M6 

beta VALUES for H2 

3 

s 

l6fl 




total taole storage 

= 50?M 
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Subroutine C0NTRL next calls subroutine CKTCjZiN to process the calculations 
required for the system being considered. Completion of the required cal- 
culations causes program control to return from CRyC0N TO C0NTRL. Subroutine 
C0WTRL then tests to see if additional system data decks are to be read in 
if so, it does and repeats the cycle; if not, C01WRL calls EXIT and teimi- 
nates the run. 


Brief flow-charts for C01WRL, C0MPIL, and CBQrC0N are presented in Figure 
1.^-1, -2, and -3. 


1.4.2 Program Sequencing Subroutine. The mechanism for controlling the 
analysis sequencing is set up in Subroutine CRYC0N. This subroutine performs 
the major branching functions of calling in the various subprograms needed for 
each specific system type analysis. Key variables used by CRYC0N to effect this 
control over the analysis sequencing are SYSNUM and SCRIT. For each cryogen 
system (and system kind) there exists a preprogrammed set of induces stored 
on a data statement KSUBC (SYSNUM, I) which defines the order in which 
the major analj^tical subroutines will be called. This set of indices are used in 
CRYC0N for sequencing purposes. 

1.4. 2.1 Program Calculations Sequence. The initiation of specific system calcula- 
tions occurs in Subroutine CRYC0N. For any of the five cryogen systems, CRYC0N 
will obtain from labeled common CCNTRL, the values for SYSNUM and SCRIT. 

This permits access to the indices stored in the preprogrammed set of data statements 
KSUBC (SYSNUM, I). The branching index JKM (see Fig 1.4-3). then can assume 
the value of each stored sequencing index in a given KSUBC data statement as CRYC0N 
'cycles through its "I" loop. Concurrently, as each JKM index is picked up, CRYC0N 
tests to see if the specified subprogram requires a "user signalled" diagnostic 
switch to be turned "ON" or left "OFF. ” This is an especially useful feature when 
debugging changes to subprogram coding. Values for MDTRC, the diagnostic indices, 
are entered by the user in the system run data deck (see Section 1.5). The KSUBC 
data statements are phj’sically located in Subi’outine STODTA and are available through 
labeled common CCNTRL via an INCLUDE statement. 
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Fig. 1.4-1 Flow Chart for Subroutine 
C0NTR0L 


H. 


I^AD (5000) NAME, DEPT. BLD,|EXT, TITLE 


NO 



CALL 

INTAB 


I 


COLLECT DATA TABLES 
AND STORE DATA ARRAYS 

- CHECK ARRAY AND 
ECH0 TABLE i SUMMARY 



TABLE 

DATA 

DRUM 

FILE 



5 

f 1 

-o 

READ (5001) 

NSYS, NI, NCRIT, 
INTGR, MDTRC 


TABLE DATA 
DECK FILE 





NO ^ ■■ YES 

SCRIT » 1 kCh— CNCRIT=NSPC> ^ SCRIT » 2 
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Fig. 1.4-2 Flow Chart for Subroutine 
CpMPIL (Simplified) 
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Fig. 1.4-3 Flow Chart for Subroutine CRYC0N 
(Sheet 1) 
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-23 


FROM TO 

SHEET 1 


FROM 


900 CALL WTACC 


1000 CONTINUE 


2000 CONTINUE 


IF ^ 
(LREPT) 
0 . + ^ 


IF 

MDTRC (JKM) 
\ =0 


1 = 1+1 


IF ^ 

( 1 - 9 ) 

0 , + 


FROM 
SHEET 1 


INDEX WHICH PERMITS 
APU-SUPERCRITICAL ANALYSES 
TO BE RECYCLED IF Q(/F RATIO 
CHOSEN IS TOO LOW - PROGRAM 
AUTOMATICALLY RECYCLES. 


TURNS "OFF*' DIAGNOSTIC ROUTINE 


JP 1 DIAG (-2, 6HCRYCC(N) 


CALL OTPWSM 


RETURN. 
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The index "K" emploj'ed in CRYC0N is used to indicate initial or final conditions 
for subroutine TSIZEI (K). For the specific requirements of an Auxiliary Power 
System analysis (APU), the value of "K" can only be set equal to two (2). For 
all other system analysis ’’K" is set equal to one (1) the first time called and set 
equal to t^vo (2) the second time called. 

The index "LREPT" is employed, by CRYC0N, only when processing a super- 
critical APU system. Its use permits the recycling (starting over again) of 
subroutine APUSUP when that subprogram determines that the fuel mixture 
ratio (O/F) ii^mt value is too low and yields impossible temperature values. 

At that point the subprogram incrementally raises the O/F ratio and reruns 
the analysis. If three attempts fail, the subprogram quits and terminates the 
analysis. 

The manner in which the sequential execution of CRY'C0N can vary is explained 
in the subsections which follow. 

AC PS - QMS Systems Calculation Sequence. If, for example, a sub- 
critical cryogenic reaction control system (ACPS) had been chosen for analysis, 
the following would be the sequence of events executed by subroutine CRYC0N. 

The v.alues assigned to SYSNUM, SCRIT, and KSUBC (SYSNUM, I) would be: 

SYSNUM = 1 (For ACPS) 

SCRIT = 1 (Subcritical System) 

KSUBC (1,'I) (KSUBC for ACPS) 

and the preprogrammed Data Statement to be used would be: 

DATA (KSUBC (1,1) I = 1, NBRSR)/6, 4. 10, 9, 8, 1, 10, 11, 2/ 
where "NBRSR" is defined as 9 in PDP-CCNTRL. 

There are , therefore , nine subprograms to be called in the reaction control system 
analysis. 
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Referring to the CRYC0N Flow Chart (Fig. 1.4-3), note that statement 10 sets 
1 = 1 for the first pass in the calculation loop. Statement 20 then sets JKM = KSUB 
(SYSNUM, I), or, literally equal to KSUBC (1, I) which is the first of the nine 
values defined in the data statement body. Thus JKM = 6 in the first loop pass. 
Statement 50 is a "computed" GO TO statement which in this instance literall3? says 


GO. TO the JKM (6th) value within the parenthesis, or GO TO Statement 500, 
which calls subroutine C0NSUM. Thus, the order of subprogram execution, in 
sequence, by subroutine CRYC0N for a reaction control system analysis would be 
as shown in the table below: 


Table 1.4-2 

CRYC0N EXECUTION SEQUENCE FOR ACPS ANALYSIS 


Loop 

JKM 

G0 T0 

Subprogram 

Pass 

Value 

Statement 

Called 

1 

6 

500 

C0NSUM 

2 

4 

400 

CMPCAL 

3 

10 

800 

TSIZEI(l) 

4 

9 

700 

TANK 

5 

8 

600 

LIQRES 

6 

1 

100 

ACCRES 

7 

10 

800 

TSIZEI(2) 

8 

11 

900 

WTACC 

9 

2 

200 

ACQWT 
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The above table holds true for an orbit maneuvering system (subcritical cryogen) as 
well, since the only significant differences are larger engines and fewer, but larger, 
component parts. 

Upon completion of nine loop passes through CRYCON, accomplishing all of the 
calculations required by the respective subprograms, the final step is a call to 
subroutine OTPWSM which extracts from the labeled common storage, the values 
needed for a system weight summary and outputs these data in a formatted weight 
summary table. Program control returns to subroutine CONTRL for either execution 
of a second case (system analysis) or termination. A general flow chart for a typical 
reaction control system analysis is presented in Figure 1.4-4. 

1.4. 2. 3 APU System Calculations Sequence. For the Auxiliary Power System analysis, 
tw'O operating system types are possible; a subcritical cryogen fluid supply subsystem 
and a supercritical cryogen fluid supply subsystem. 

It is therefore necessary to provide a means of altering the preprogrammed values to 
accommodate both cryogen fluid supply subsystems. This is accomplished by pre- 
programming KSUBC (2,1) for the more likely supercritical flxiids case, and modifying 
the data statement when considering the subcritical cryogen fluid supply subsystem. 

This data statement adjustment is automatically taken care of in subroutine CRYCON 
DOG loop as sho\vn in the Flow Chart (Ref. Fig. 1.4-3). The DOG loop mil reverse 
the second and third values of the data stored as KSUBC(2 ,1) depending upon the value 
assigned to SCRIT. JAPUS (SCRIT, I) is the variable accomplishing the switch in 
value. The data statements defining JAPUS are stored in subroutine STODTA. 

Subcritical Analysis ; For an APU system requiring a subcritical cryogen fluid 
supply subsystem, the values assigned, via input, to the variables SYSNUM, SCRIT 
and KSUBC (SYSNUM, I) would be 

SYSNUM - 2 (For APU) 

SCRIT = 1 (For Sub critical) 

and KSUBC (2 A) 

The preprogrammed data statement stored in core is 

KSUBC (2 I) I = l,9)/6 3 4 10 11 2 0 0 0/ which is actually the sequence for a 
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1.4-4 Greneral Flow Chart for ACPS-OMS 
System Analysis (Sheet 1) 


1 . 


C0NTRL 

CALL 

CRYC0N 




I 

i. 


CRYC0N 

CALL 

JCONSUM. 


SETS SEQUENCE LOOP INDEX 
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SEQUENCE INDICES (KSU'BC). 

CALLS APPROPRIATE SUBPROGRAMS 
ACCORDING TO SERVICE REQUIRED. 


■Q CONTINUE 


I 

I DO THE SYSTEM CALCULATIONS FOR 
I ALL COMPONENT ASSEMBLIES DEFINED 
I IN THE SPECIFIED SYSTEM 





CONTINUED 
ON SHEET 2 


-t> (^ C0NSUM ^ 


COMPUTES CONSUMER TOTAL WEIGHT 
AND CRYOGEN WEIGHT CONSUMED, TO 
DUTY CYCLE CONSTRAINTS 


CALL 

FL0RAT 


^ FL0RAT ^ 


COMPUTES FLOW RATES OF OXYGEN 
AND HYDROGEN FOR DOWNSTREAM 
CONSUMPTION IN GAS GENERATORS 




RETURN 
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RETURN 


LMSC-A991396 








Page Intentionally Left Blank 



CONTINUED FROM SHEET-1 
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I CALL I 
VcMPCALy 



/^RYC0N \ 


I CALL ) 
V TSIZEI y- 
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Page Intentionally Left Blank 



Fig. 1/4-4 General Flow Chart for AC PS -O MS 
System Analysis (Sheet 3) 



CONTINUED FROM SHEET-2 


/ CRYCOJN \ 


1 CALL I 

Vliqres / 



RYCrflLN 


( CALL / 
VACCRESy 



COMPUTES ACCUMULATOR RESIDUAL 
GAS WEIGHT FOR SPECIFIED DUTY 
CYCLE 


RETURN 
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I CALL 
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RETURN ^ 
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CALL 

ACQWT^ 
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RETURN ^ 
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CALL 
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supercritical subsystem. Therefore, the first action by CRYC0N is to reset the 
second and third values in a tAvo-step loop as follows: 


1st; KSUBC(2,2) = JAPUS(l.l) = 4 
2nd; KSUBC(2,3) = JAPUS(1,2) = 3 

and the reversed data statement becomes: 

KSUBC(2,I),F = 1,9/6, 4, 3, 10, 11, 2, 0, 0, 0/ 


Note that only six subprograms are called in an APU analysis. The order of sub- 
program execution, in sequence, is presented in the following table. 

Table 1-4-3 

CRYCON EXECUTION SEQUENCE FOR AN APU SUBCRITICAL SYSTEM ANALYSIS 


Loop 

JKM 

G0 T0 

Subprogram 

Pass 

Value 

Statement 

Called 

1 

6 

500 

C0NSUM 

2 

4 

400 

CMPCAL 

3 

3 

300 

APUSUB 

4 

10 

800 

TSIZEI(2) 

5 

11 

900 

WTACC 

6 

2 

200 

ACQWT 

7 

0 

2200 

Terminates Loop 
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Upon leaving the sequence loop subroutine CRYCON calls subroutine OTPWSM 
to output the component and system weight summary. Program execution returns 
to subroutine CONTRL which checks to see if another case (same system, or, 
new one) -is to be run, or if program termination is in order. 

Super-critical Analysis : 

For an APU system requiring a super -critical cryogen fluid supply subsystem, the 
input values assigned to the variables SYSNUM, SCRIT and KSUBC (SYSNUM, I) would 
be: 

SYSNUM = 2 (For APU) 

SCRIT =2 (For Super -critical) 

and KSUBC (2, I) 

Assuming, for example, that the supercritical case is rim as the second case in a multi - 
case run (not necessarily so) the preprogrammed data statement in core would still be, 
KSUBC(2, I), 1 = 1, 9)/6, 4, 3, 10, 11, 2, 0, 0, O/. The first activity in CRYCON, 
since SYSNUM = 2 , will be to reset the second and third value of the KSUBC data in a 
two-step loop as follows: (SCRIT = 2) 

t 

1st KSUBC(2,2)=3 
2nd KSUBC(2,3)=4 
and the revised data statement becomes; 

KSUBC(2,I), I = 1, 9)/6, 3, 4, 10, 11, 2, 0, 0, O/. 

The order of sub-program execution, in sequence, is presented in the following table: 
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Table 1:4-4 

CRYC0N EXECUTION SEQUENCE FOR AN APU SUPERCRITICAL 

SYSTEM ANALYSIS 


Loop 

JKM 

G0 T0 

Subprogram 

Pass 

Value 

Statement 

Called 

1 

6 

500 

C0NSUM 

2 

3 

300 

APUSUP . 

3 

4 

400 

CMPCAL 

4 

10 

800 

TSIZEI(2) 

5 

11 

900 

WTACC 

6 

2 

200 

ACQWT 

7 

0 

2200 

Terminates Loop 


Upon leaving the sequence loop CRYC0N calls subroutine 0TPWSM to output the 
component and system weight summary, and then return program execution to 
subroutine C0NTRL. 

1.4, 2, 4 Life Support System Calculation Sequence. For the Life Support System 
analysis , the cryogen fluid supply subsystem is by definition a supercritical subsystem 
with a relatively simple and straightforward plumbing structure. It is also unique 
among the other systems, in that the cryogen fluids employed are oxygen and nitrogen. 
Because of this fact, and the need to maintain overall program variable storage require- 
ments at a level that will fit into core , it was decided not to expand the program variable 
ai'raj's to accommodate a third cryogen fluid, but instead, to use those portions of the 
arrays normally used for the hydrogen fluid to store the nitrogen fluid parameter values. 
Consequent!}' , the Life Support subprogram became a fairly large self-contained sub- 
program, designated as subroutine ECLSS. Hence, subroutine CRYC0N makes only 
one call for the subprogram. In the case of a Life Support System analysis, the 
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values assigned, via input, to the variables SYSNUM, SCRIT and KSUBC (SYSNUM, I) 
would be , 


SYSNUM = 3 
SCRIT = 2 


and KSUBC (3,1). 


The preprogrammed data statement stored in core for this system analysis is, 
(KSUBC(3,I), I = l,9)/7, 0, 0, 0, 0, 0, 0, 0, 0/. And the ox-der of subprogram exec- 
ution by subroutine CRYCON is as shown in the following table; 

Table 1.4-5 

CRYCON EXECUTION SEQUENCE FOR A LIFE 
SUPPORT SYSTEM ANALYSIS 


LOOP 

JKM 

GO TO 

SUB -PROGRAM 

PASS 

VALUE 

STATEMENT 

CALLED 

1 

7 

550 

ECLSS 

2 

0 

2200 

Terminates Loop 


As stated previously CRYCON calls subroutine OTPWSM, outputs the weight summaries 
and returns to CONTRL for a new case, or termination of the program. 

1.4,2. 5 Fuel Cell System Calculation Sequence. The cryogen fuel cell system as 
defined by this study is a fuel cell array fed by a supercritical fluids storage and 
supply subsystem. Further, the energy required for conditioning the reactant fluids 
and maintaining their super -critical condition in storage is wholly derived from the 
reject lieat of the fuel cells. The subprogram which characterizes the fuel cell S3^stem 
is subroutine FUELCL. This rather large sub-program performs the system sizing 
calculations based upon the mass and energy transfer requirements of the input 
performance and duty cycle constraints. 


1-38 

LOCKHEED MISSILES 8c SPACE COMPANY 










LMSC-A991396 


The individual fluid circuit components and line segments are sized and weighed bj' 
subroutine CMPCAL which additionally supplys pressure drop calculations for the 
main reactant circuits. 


For a fuel cell analysis, subroutine CRYC0N has the values assigned, via input 
data, for SYSNUM, SCRIT and KSUBC (SYSNUM, I), as follows: 

SYSNUM = 4 
SCRIT = 2 

and KSUBC (4,1) 


The preprogrammed data statement stored in core for fuel cell system analysis is , 
(KSUBC(4,I),I = l,9)/5, 4, 0, 0, 0, 0, 0. 0, 0/. 


The order of sub-program execution is as given in the following table 


Table 1.4-6 

CRYC0N EXECUTION SEQUENCE FOR A FUEL 
CELL SYSTEM ANALYSIS 


Loop 

JKM 

G0 T0 

Subprogram 

Pass 

Value 

Statement 

Called 

1 ' 

5 

450 

FUELCL 

2 

4 

400 

CMPCAL 

3 

0 

2200 

Terminates 

Loop 


WTien the internal loop is terminated CRYCON calls subroutine OTPWSM, outputs the 
weight summaries and returns to CONTRL for a new case, or termination of the 
program . 

1.4. 2. 6 Orbit Maneuvering System Calculation Sequence The orbit maneuvering 
system (OMS) employed in this study was defined to be a subcritical cryogen fluids 
pump -fed system. The OMS and AC PS analysis procedimes are quite similar px’ogram- 
wise, with the principal differences being engine size, component size and the fact 
that the OMS has fewer, though larger components. 
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For an OMS analysis, SYSNUM, SCRIT and KSUBC (SYSNUM, I) will have the following 
values: 


SYSNUM = 5 
SCRIT = 1 

and KSUBC (5,1). 

The preprogrammed data statement stored in core for OMS analysis is: 

(KSUBC (5, 1), I = l,9)/6, 4, 10, 9, 8, 1, 10, 11, 2/ 

The order of sub -program execution b 3 ' sub -routine CRYCON is identical to the order 
given in Table 1.4-2 , and the subsequent remarks following that table. 
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1.5 INPUT DATA 

Ti he input data deck structure will vary according to the system to be analyzed and the 
tj'pe of fluid storage system employed. All input data cards are read within the body of 
subroutine CONTRLv The segments of input data to be read are generally divided into 
two groups; (1) input data common to all system analyses and (2) input data specific to 
a given system analysis. Necessarily a variety of read statement formats must be 
used and these are defined in labeled card formats given later in this discussion . 

In general , a data input deck , for any system to be analyzed , will be made up of a set 
of card groups from the following group list: 

(a) User Identification Card (First Header Card) 

(b) Case Title Card (Second Header Card) 

(c) Table Data Echo Control Card 

(d) Add-File Card - To cause loading of "Table Data" file - or - Actual "Table Data' 
Deck may be placed here, replacing the Add-File card 

(e) System Definition Card 

(f) Configuration Definition Data Cards 

(g) Duty Cycle Definition Data Cards 

(li) Consumer Characterization Data Cards 

(i) Fluid Storage Tanks Characterization and Configuration Data Cards 

(j) Fluid Accumulator Characterization Data Card 

(k) Heat Exchanger Characterization Data Cards 

(l) Pump and Turbine Characterization Data Cards 

(m) Heat Soui’ce Characterization Data Cards 

(n) Motor Characterization Data Cards 

Cai’ds (a), (b), and (e) are read directly by subroutine CONTRL. Cards (c) and (d) 
are read by subroutine INTAB, called by CONTRL. Cards (f) through (n) are read 
by subroutine COMPIL, called by CONTRL. 
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1.5 1 Input Data - Card Definition and Description 

Data definition and input card descriptions for data contained in the fourteen data card 
groups are presented in detail in the following subsections. Card data formats are 
presented in Subsection 1.2. 

1. 5. 1. 1 User I. D. and Case Title Cards. 

Gp(a) Card-1 

The User I. D. card identifies the analyst making the program run. This card is 
I'equired in every run deck. The card contains the following information: 

Name, Dept., Bldg., Extension 
Gp(b) - Card-1 

A case title card is to be provided for every system data deck as a means of providing 
run identification for the system being evaluated. Seventy -two (72) spaces are provided 
for the title. Short titles are to be centered in the 72 spaces. 

1. 5 . 1 . 2 Table Data Input Cards. 

Gp(c) - Card-1 

This card is the Table Data Echo control card. The variables contained on the card are 
I FT, OFT, NPRT, NPRT2 


IFT = Table Data Input Drum Unit 
OFT = Table Data Output Drum Unit 
NPRT = Table Data Echo Print Control 

= 0, Print .All Tables, One Table per Page 
= 1 , Print No Table Output 

= 2 , Print All Tables with no page eject - Table Dump 


NPRT2 
NPRT 
NPRT 2 


Control for Table Summary 

^ \ Print Brief Table Summarv 
1 
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Gp(d) - Caid-l (Normal Setup) 

If the Table Data has been entered and stored as a DATA File, then the Data File may 
be assigned and Card-1 here will be a simple: 

©ADD,P FILNAM 
where 

FILNAM is the Data File nemonic. 

If the Table Data is on cards to be read in at this time , then the Gp(d) cards will be 
the actual table data card sets as described in detail in Subsection 1. 5. 6. 


Alternate Table Deck Input: (N-sets) 


Gp(d) Card-1 


The Table I. D. and Control Card will contain the following information; 
Title ~ Table Title (Description) 

ND ~ Number of Dimensions in Table (MAX = 7 , MIN = 2) 

NC ~ Number of Comment Cards in Table 

IP ~ Plot Option 

(O = No Plot, 1 = Plot Table) 

NT ~ Table Number 



Table Comment Card - Gives further description of table data and data reference 
sources. There may be NC comment cards. 



Table Subset Variable Card - Specifies additional variable and its values for 
Table Data Subsets. 
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LABV - Variable Label 

NP ~ Number of Values to be used (is also number of data subsets) 

TAB — Value, Value , ‘Value 

z np 

There must be (ND^2) of these cards present in Table Set. (ND = Number of 
dimensions in Table) 

Gp(d) Card -4 


Table Plot Control Card - Contains X-axis label, Y-axis label, X-MIN value, X-MAX 
value. One card is required for each Table Set. 

Gp(d) Card-5 

Table Data Subset Characterization Card - card contains: 

N\^ ^ Number of Data Point Sets (X,Y) or Number of coefficients 

TYPE — Type of Data in Table 

0 , Coefficients of polynomial 
= 1 , Discrete data points from curve 
= 2 , Equation 

NIP “ Number of points to be used for data interpolation 
< NV 
>1 

= 2 , Linear Interpolation 
= 3 , parabolic or hyperbolic interpolation 

There must be one of these cards for each data sub-set in the Table Set. 

Gp(d) Card-G 

Table Data Card - : 

For discrete data there are three data sets (X,Y) per card arranged in order of 
increasing values of X, for NV sets of points. 
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For coefficients; coefficients are arranged in order of power and NV coefficients 
are read. (For example; CjX^ + C 2 X + = 0; Input as Cgi and NV - 3) 

There are NV/3 discrete data cards required, or NV/6 coefficient data cards 
required. 

There will be N sets of the Gp(d) table card sets, w'here N equals the number of Table Data 
sets required for the program. 

1.5. 1.3 System Definition Card 

Gp(e) Card-1 

The system definition card provides the system identification; specifies whether 
the S 3 'stem has a subcritical or super -critical fluid supply subsystem; specifies 
whether or not additional systems are to be read in for additional case consideration; 
and, specifies which subprogram diagnostic switches are to be activated. The 
variables which are read are: 

NSYS First three letters of system name 
N1 “ Additional six alpha spaces for rest of system name 
NCRIT ^ First tliree letters of subcritical or super -critical 
MDTRC ~ Diagnostic switch for eleven subprograms 

0, or, blank for NO Diagnostics 

1, turns ON Diagnostic switch as defined in PDP-CCNTRL 
There must be one system definition card in each system input deck. 
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1.5. 1.4 System Configuration Definition Data Cards 
Gp(f) Card-1 


The system configuration definition data represents the program image of the 
system schematic diagram. Only one (1) card format is employed which functions 
as a data input card, and as a configuration table END card. The flexibility of 
the data format card in providing different kinds of information resides in the 
technique of reading the array and changing the variable name to correspond to 
the value entered at any point in the array. Smce each data card represents a 
specific item, such as, fluid, component, or line segment, and their associated 
parameters, the data array is conveniently manageable. 


The variables which are allocated to the card are as follows: 

CFUNCT — Six alpha characters which specify either the fluid, consumer 

assembly, or system component item, currently being considered. 
The allowable names are defined in DATA (FNAME) located in 
subroutine STODTA, and further described in PDF -CONFIG 


CFTYPE A single, or, tw'o digit number which characterizes the type or 
kind of fluid, consumer assembly, or system component item 

CNOPER ~ Single digit number - for number of consumer assemblies , or 

component items operating in parallel; or, in the case of a fluid, 
the digit specifies the fluid state (i.e. , 1 = gas; 2 = liquid) 

CNSTBY — Single digit number - for the number of consumer assemblies or 
component items in parallel standby condition (not operating) 

CMTYPE — Single Digit Number which specifies the material type for the 

'system component item. CMTYPE values are defined in PDP- CCNFIG 
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FRCOEF Variable containing the friction coefficient applicable to the system 
component item being considered 

LOD ~ Length over Diameter Ratio, or, Length applicable to the system 
component item under consideration (Real Number) 

I 

DIAM ~ Diameter (I.D. or Port) applicable to system component item being 
considered 


CITYPE Integer defining Insulation Type employed for system component 
item being considered 

ITHICK — Insulation thickness (Real Number) for system component item under 
consideration 

NEAR — Number (Real) of insulation layers per inch of thickness for 
component item being considered 

CODE — Six alpha character code name for component item under consideration, 
(i. e. , PS02 , etc.) 

There must be one card for; (a) each fluid and fluid state change, (b) each fluid 
system consumer, (c) each fluid system component item, and (d) each fluid system 
line segment item. The cards are arranged starting with the oxidizer fluid 
system side and working from the consumer toward the fluid supply source. This 
is followed by the same arrangement for the fuel fluid side of the system. A typical 
configuration table is illustrated in the Input Data Deck Example given in Subsection 
1.5.5. The very last card in the configuration data set must have END entered 
in the CFUNCT field, since this is required in subroutine COMPIL to terminate the 
READ loop. (It is also advisable to use card columns 73-80 to number the configur- 
ation data cards . ) 
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1.5. 1.5 Systeia iKity Cycle Definition Data Cards 
Gp(g) Card-1 

The system duty cycle definition data cards contain the cyclic operating interval 
data required for each analysis. The variables employed are as given below. Note 
that the variable DCYCLE is in an array in which are stored alternate values of 
operating and non-operating time intervals: 


DCYCLE (I) “ Operating Time Interval 


DCY^CLE(I+1)~ Non-operating Time Interval 


PSI 


— Minimum Impulse Bit Degradation 


NEOP 


- Number of Consumers Operating (Engines, Fuel Cells, etc.) 


HP 


— Horsepower-Average Value In Interval 


PAMB 


Ambient Pres sure -Average Value In Interval 


PKW 


Power (K\V) -Average Value In Interval 


RPRTIM 


— Time required per repressurization (cabin or airlock) during a given 
duty cycle Interval 


There must be one card for each of the defined duty cycle interval periods in total missioi 
span considered. 


There must be a duty cycle end -card consisting of a negative number (i.e. , -1) in the 
DCYCLE (I+l) field 
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1.5. 1.6 Consumer Characterization Data Cards . The consumer characterization data cards 
are specific to the system undergoing analysis and contribute the only significant change in the 
input data decks for the respective systems. Aside from the differi)ig input data for the 
five kinds of consumer systems further differences occur when a given system has a sub- 
critical fluid supply subsystem, or when it has a super -critical fluid supply subsystem. Thus, 
there are seven separate consumer characterization data card sets which cover the range of 
program analysis capability. 

1.5. 1.6 1 Engine Consumer Data Cards: (ACPS or QMS) . 

Gp(h-l) Card-1 

The engine consumer data card is utilized for both ACPS and QMS engine data since the 
required parameters are identical and the same variable names are used. The 
variables employed are defined as follows: 

NENG - “ Integer number of engines operating 

GITEMP ~ Fluid Inlet Temperature to Engine(s) 

GIPRES ~ Fluid Inlet Pressure to Engine(s) 

THRUST — Developed Thrust per Engine 
PSUBC ' — Engine Combustion Chamber Pressime 

EXPRAT — Engine Nozzle Expansion Ratio 

MIXRAT - — Engine Oxidizer to Fuel Mixture Ratio (Real Number) 

The single card is usually marked by placing the term ENG in card columns 78-80. 
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1, 5. 1. 6. 2 APU Consumer Data Cards. The APU Consumer input data requires two cards 
for either a subcritical or super -critical fluid fed system. The first card used in both 
cases is identical, while the second cards contain different information. The input cards 
required are as follows: 

Gp(h-2) Card-1 (APU-Basic) 

The following' variables are input on the APU-Basic card: 

NAPU ~ Integer mmber of APUs operating 

HPR ~ Horsepower Rating of a single APU (Assumes all are identical) 

FMR . ~ Oxidizer to Fuel Mixture Ratio of Gas Generator Driving APU Turbine 

PGG ~ Exit Pressiu'e of Gas Generator driving APU Turbine 

TIT - Turbine Inlet Temperature (Assumed also to be exhaust temperatiu’e 

of gas generator driving APU turbine) 

TD ~ Exhaust discharge temperature from fluid conditioning heat exchangers 

Gp(h-2) Card-2 (APU -Subcritical) 

The variables input on the APU -Subcritical card are as follows: 

IMRGGCH — Oxidizer to fuel mixture ratio for the gas generator driving the fuel 
fluid conditioning heat exchanger 

MRGGC0 — Oxidizer to fuel mixture ratio for the gas generator driving the 
oxidizer fluid conditioning heat exchanger 

TDGGH - Discharge temperature of gas generator for fuel conditioning heat 

exchanger 
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TDGG0 “ Discharge temperature of gas generator for oxidizer conditioning 
heat exchanger 

TVH “ Temperature of residual vapor in fuel storage tank 

TV0 “ Temperature of residual vapor in oxidizer storage tanlc 

TENV ~ Environment temperature around APU System 

Gp(h-2) Card-3 (A PU -Supercritical) 

The variables entered in the APU Supercritical data card are as follows: 

FMRG ~ Oxidizer to fuel mixture ratio for supplementary gas generator 

PFH ~ Final fuel tank pressure 

PF0 — Final oxidizer tank pressure 

TFH ~ Final fuel tank temperature 

TF0 ~ Final oxidizer tank temperature 

TG “ Exit gas temperature from supplemental gas generator 

DELPCP ~ Pi'essure rise (Delta-P) in tanli circulating pump 
TEN\^ ~ Environmental temperature around APU system 
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1.5 . 1.6.3 Life Support Consumer Data Cards . The Life Support Consumer Data Input 
variables require four input cards in two different card-formats. The variables by 
card format are as follows: 

Gp(h-3) Card-1 (^2 = Oxygen, N2 = Nitrogen) 

MDAYS Integer number of days in mission 

NCREW ~ Integer number of crewmen on board spacecraft 

NRPRES ~ Integer number of cabin or airlock prepressurization planned for missic 

NDARES ~ Integer number of days of reserve fluids required 

02FN0M ~ Metabolic oxygen requirement (lbs. per man-day) 

GLKRAT ~ Spacecraft atmosphere leakage rate (lbs. per day) 

TLSNVM ~ Nominal temperature of gases supplied for life support (1) = 0_; 

(2) = N2 

« 

RH0BEG ~ Loading density at stored life support fluids (1) = 0g; (2) = N2 

TKFTEM ~ Final fluid tank temperatures 
(1) = 0g; (2) = N2 

TKFPRS ~ Final fluid tank pressures 

( 1 ) = 02 ’ ( 2 ) " 

TENVR ~ Environment temperature around life support fluid storage tanks 
CABVe^L ~ Cabin (or airlock) volume 
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Gp(h-3) Cai^d-2 

LINDIA — Fluid line diameter entering fluid conditioning heat exchanger 
(1) =02; (2) = N2 

HTRFLX — Heater rating (BTU/HR-sq. in. ret. temp.) 

(1) For heaters in conditioning heat exchanger 

(2) For fluid tank heaters 

PLSN0M ~ Nominal pressure of delivered gaseous life support fluids 
(1) =02; (2) = N2 . 

HTRDIA “ Fluid tank heater diameter 
(1)=02; (2) =N2 

HTRLNG ~ Fluid tank heater length 
(1) =02; (2) = N2 

PSETl ■ ~ Lower pressure limit setting for 02 storage tank 
PSET2 ~ 'Lower pressure limit setting for N2 storage tank 


1.5. 1.6.4 Fuel Cell Consumer Data Cards. The fuel cell consumer data input variables 
require four data cards in three different card formats. The variables arranged by card 
format are as follows: 


Gp(h-4) Card-1 


MRFC — Ox.ygen to hydrogen reactant mixture ratio for fuel cell 

SRCFC " Specific reactant consumption (Ibs/KWH ©rated power output) 

QDTFC ~ Fuel cell heat rejection rate (BTU/KWH © rated power output) 
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SPWTFC 

TFCNOM 

TF2UN 

TF210U 

TF0FC 

TFHFC 

PF0FC 

PFHFC 

RH0FIL 

W0VENT 

WHVENT 

DELTCP 

TENV 

PRFC0P 

P0WN0M 


Fuel cell specific weight (LB/KW g rated power output) 

~ Nominal fuel cell gas fired temperature 
(I) = 02; (2) = H2 

— F21 coolant fuel cell exit temperature 

~ F21 coolant fuel cell inlet temperature 

~ Final 02 reactant tank temperature 

~ Final H2 reactant tank temperature 

~ Final 02 reactant tank temperature 

~ Final H2 reactant tank temperature 

~ Reactant tank fill densities 
(1) = 02; (2) = H2 

~ Estimated 02 vent quantity 

~ Estimated H2 vent quantity 

~ Pressure rise in reactant tank circulating compressor 
~ Environment temperature around fuel cell system 
~ Fuel cell operating pressure 
~ Nominal fuel cell operating power level 
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Gp(h-4^ Card-: 

NFC0P 

NFCSTB 

PLSETl 

PLSET2 

VJANUL 

TKMXDI r 

Gp(h-4) Card- 

FCV0LT 

PRGRAT 

PRGTIM 

PRGINT 


Integer mimber of fuel cells operating 
Integer number of fuel cells on standljy 

Lower limit pressure setting for 02 reactant tanlc 

Lower limit pressm’e setting for H2 reactant tank 

Vacuum jacket annulus spacing (inches) 

(1) = 02; (2) = H2 

Maximum tank pressure vellel diameter permitted 
(design constraint - inches) 

(1) =02; (2) =H2 

3 


Nominal fuel cell voltage 

Nominal fuel cell purge rate 
(1) =02; (2) =H2 

'Nominal fuel cell pxurge time (diiration each purge) 
(1) =02; (2) = H2 

Purge interval in ampere hours 
(1) =02; (2) =112 
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1.5. 1. 7 Fluid Tank Data Input Cards. The fluid tankage characterization data cards are 
common to systems encompassed in the major program. Variations v/hich may occur in 
some systems are accommodated by simply entering zero values for the variables not used 
by the particular system considered. Tank geometry considerations are provided for in 
the program, with subprogram capability for calculating; spherical, cylindrical, cylindrical 
with hemispherical ends, cylindrical with conical ends, and combination tankage with a 
common bulldiead , hemispherical bottom and conical top with a hemispherical cap (such as 
the cryogen shuttle orbiter drop-tanlv). For special tank shapes having predetermined 
dimensions, the program will read in the dimensions and do the necessary calculations for 
volume and surface area. For simple spherical tanks, or, simple cylindrical tanks with 
hemispherical ends, the program skips the special geometry input cards, and they must 
not be present in the input deck. The conditions controlling this branching option are 
specified in the tank geometry characterization sub -paragraph. 

1.5 . 1. 7. 1 Fluid Tank Characterization DATA CARDS . The variables which characterize 
the fluid tanli conditions and constraints are as follows: 


Gp(i-l) Cards 1-4 


N0P 


— Number of tanks operating on line (same fluid) 


SATYPE - — Fluid acquisition device type 


SITYPE - Tankage insulation type 


SMTYPE Tank construction material type 


SPTYPE “ Tanlc pressurization system type 

SITEMP ~'Tank initial fluid temperature 

SIPRES “ Tank initial pressure 

SPGTEM “ Pressurant gas temperature (inlet condition) 
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P0PRES 

SVPRES 

SHFLllX 

SITHIK 

FLDL0D 

SULGPC 

SMDIAM 

SH0TEM 

SHDELP 

SPDELP 

SG0TEM 

SGGPC 

SGMRAT 

SNBAR 


“ Tank operating pressure 
~ Tank vent pressure setting 

— Heat leak flux into tank (BTU/HR-Sq. Ft.) (Optional) 

~ Tank insulation thicluiess (inches) 

~ Wgt. of fluid loaded into tank (optional) 

~ Percent ullage (initial value for tanl-c) 

- — Maximum tank diameter (ft. ) 

” — Tank conditioning heat exchanger cold fluid outlet temperature 
~ Tank conditioning heat exchanger cold fluid pressure drop (psi) 

~ Tank circulating pump pressure rise (psi) 

~ Tank conditioning heat exchanger gas- generator outlet temperature 

~ Tank conditioning heat exchanger gas-generator chamber pressure 
(outlet pressure) 

“Tank conditioning heat exchanger gas-generator mixture ratio (0/F). 

“ Number of layers per inch of tank insulation material. 

(multilayer insulation only) 


Two sets of the above cards are read; the first set contains the data for the oxidizer 
tankage, and the second set contains the data for the fuel tankage. Two sets (S-cards) 
must be present in the data deck, even if one set is blanlc. 
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N0SHAP ~ Integer number specifying number of tanlc shape cards to follow 


Option Definitions 


If IWOP = 1 Subprogram will compute tank volume for a spherical tank. 

If diameter of sphei'ical tank exceeds value of SMDIAM, subprogram 
will add a cylindrical section between hemispheres with diameter 
equal to SMDIAM to accommodate tank volume required. Subprogram 
prints out requirement for cylindrical tank giving length of cylinder 
and diameter. 


If IW0P = 2 Subprograms will compute ail parameters for a "Specific 

General Tank Configuration" - to be specified on input cards 

r 

following this card. 

If IW0P = 3 Subprograms will compute all parameters for a "Fitted General 
Tank Configuration" in which all tank segments are specified 
except the length of the major cylindrical section. This "Length" 
will be- computed by the subprograms to "fit" the required tank 
volume generated by system fluid consumption computations. 

If, IW0P <2, and NOSHAP = 0, the IW0P = 1 Option is executed automatically, and 
there are no lanlc shape cards following the option card. If, IW0P^ 2, then N0SHAP 
must specify the number of tank shapes involved and that many "shape cards" will 
have to be present following the Tank Option Card. 
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G p(i-3) Card -6 

Tank sliape card(s) - the tank shape cards specify the geometric shape(s) involved 
in the tank structure in their order of consideration, the fluid contained by the tank, 
and the dimensions associated with each shape segment. The variables input in this 
card are as follows: 

JTKTYP — Integer value which specifies tank segment shape (see notes) 

JFLTP — Integer value which specifies fluid contained in tank segment shape 

XD - ~ Shape '‘X" dimension (see notes) 

Y’D - — Shape "Y" dimension (see notes) 

ZD • ■ ~ Shape "Z" dimension (see notes) 

Notes : Variable Specifications 

JTKTYP = 1, for cylinder 

= 2 , frustrum of cone 
= 3, hemi-ellipsoid 
= 4, cylinder plus hemi-ellipsoid 
= -2 , inverted frustrum of cone 
= -3, inverted hemi-ellipsoid (bulkhead) 

JFLTYP = 1, oxidizer fluid 

=: .2, fuel. fluid 

= -1 oxidizer at common bulldiead 
= -2 , fuel at common bulkhead 

ForJTKTYF=l, 

XD = Height (ft) 

YD = Radius (ft) 
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For JTKTYP = 2 , or , -2 , 

XD = height (ft. ) 

YD = radius of top (ft.) 

ZD = radius of bottom (ft. ) 

For JTKTYP = 3 , or , -3 

XD = radius along axis of rotation (ft. ) 

YD = radius perpendicular to axis of rotation(ft. ) 

For JTKTYP = 4 , 

XD = radius (and cylinder height) along axis of rotation (ft.) 

Y"D = radius perpendicular to axis of rotation (ft.) 

One card is necessary for each tank segment shape and the order of input is 
from the tanlc "Bottom'.' to the tank "Top". 

1.5 .1.8 Accumulator Data Input Cards . For those systems requiring an accumulator tanlt 
for the storage of gaseous fluid , provision is made for inputing the required accumulator dat 
The branching function permitting the reading of data specified in this and the following 
subsections is controlled by preprogrammed data statements called "INBLK", defined as 
DATA ((INBLK(SYSNUM, I, J), I = 1,5), J = 1,2). The five data statements, one for each 
major system, define which of five sets of major component input data cards are to be 
read for any given system. The five INBLK data statements will be found in subroutine 
ST0DTA, INBLK is defined in PDP-CCNTRL. If INBLK(SYSNUM, 1, J) is set equal to 
one (1), the sjstem requires and will read in accumulator data; conversely, if INBLK 
(SY^SNUM , 1 , J) equals zero , no accumulator is required and the accumulator input cards 
will not be present in the input data deck. 

The variables which are input in the accumulator data input cards are as follows: six cards 
(two sets) are required since the variables for each fluid accumulator are entered separately 
The variables for the oxidizer accumulator are entered first, followed by the variables for 
the fuel fluid accumulator. 
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G p(j) Cards 1-3' 

NA0P - Integer value for number of accumulators operating for one fluid 

AITYPE ~ Accumulator insulation t5'pe 

AMTYPE ~ Accumulator structural material type 

ATEMP ~ Operating temperature for accumulator 

APRES ~ Operating pressure for accumulator 

AH FLUX ~ Heat leak rate into accumulator (Btu/hr-ft ) 

AITHIK ~ accumulator- insulation: thickness (inches) 

AV0L - ~ Accumulator volume (cu. ft.) 

ADIAM Accumulator maximum diameter (ft. ) 

ANDELP ~ Pressure drop swing allowed in accumulator (psi) 

ANBAR Number of insulation layers per inch of thickness 

(multilayer insulation only) 

Note that if INBLK (SYSNUM, 1,J) is zero, then there will be no accumixlator data 
cards in the input data deck. 

1. 5,1.9 Heat Exchanger Data Input Cards . A requirement for heat exchangers of one form 
or another usually exists in most of the cryogen systems-one can envision, except for the 
liquid fed OMS system. And, (as described in subsection 1.5. 1.8) if INBLK (SY^SNUM, 2,J) -• 1, 
then heat exchangers are required and input data cards must be present, otherwise they are 
deleted. 
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Heat exchangers in a two fluid system usually occur in pairs, except for the case where a 
single supplementarj’ heat exchanger might be required to make up for a potential energy 
deficiency re suiting .from a limited heat source capability. For purposes of uniformity, 
heat exchanger data will always be input for pairs of exchangers even if one of the pair 
does not exist. In this case, the non-existent exchanger is represented by a dummy (or 
blank) data card. 

The heat exchanger variables required for input employ only two card formats. The 
second card is repeated for each exchanger in sets of two. The first card contains data 
for the first oxidizer heat exchanger occm'ing upstream of the system consumer, and the 
second card contains data for its fuel side equivalent. Additional data sets are input for 
other heat exchangers encountered as the schematic layout progresses toward the fluid 
supply tanks. The variables which are input on the Heat Exehanger Data Input Cards are 
doubly subscripted and are stored in a double array. 

For example, "HXCODE (4,1) = HX07" is the heat exchanger schematic code symbol for 

the oxidizer (4, 1) heat exchanger of the fourth (4. 1) set of heat exchajigers occurring up- 
t 

stream of the cryogen oonsunnier. 

The variables employed as input are as follows: 

Gp(k) Card-1 

NUMHEX Integer value for number of pairs of heat exchangers being considered 

One card is required if heat exchanger data is to be input. 

• Gp(k) Card-2 

HEXHIT — Hot fluid inlet temperature (°R) 

HEXH0T ~ Hot fluid outlet temperature (°R) 
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HEXCIT Cold fluid inlet temperature (^R) 

HEXC0T — Cold fluid outlet temperature (°R) 


HEXHIP Hot fluid inlet pressure (psia) 

r 

HEXH0P — Hot fluid outlet pressure (psia) 

IIEXCIP ~ Cold fluid inlet pressure (psia) 

HEXC0P ~ Cold fluid outlet pressure (psia) 

HXHDLP — Hot fluid pressure drop (psi) 

IIXCULP — Cold fluid pressure drop (psi) 

HXMRAT - Heat exchanger gas generator 0/F mixture ratio 


HXC0DE ~ Heat exchanger identification code s 3 'inbo] 

Two cards are required for each pair of exchangers; oxidizer unit first followed by fuel 
side unit, when data is to be input. 

1.5 .1.10 Pump and Turbine Data Input Cards . The requirement for pump, or turbine 
data for any of the systems considered is preprogrammed in the stored INBLK data. If 
INBLK (SYSNUM, 3, J) = 1, then either pump or pump and turbine data are required to 
be input, otherwise the data cards are deleted. The pump data input cards contain three 
separate sets of information; (a) Pump data (high pressure); (b) Transfer pump data; and 
(c) Turbine data. 

The six cards which make up the pump and turbine data card set consist of two pump data 
cards (one for each fluid) , two transfer pump data cards (one for each fl?iid) , and two 
turbine data cards (one for each fluid). All six cards must be present if any of the data 
are required. Non-pertinent variables are simply left blank. 
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The valuables required as input are as follows: 

Gp (1) Cards 1-2 

PTYPE ~ Interger value for purap type 

PTYPE = 1, for pump only 
PTYPE = 2, for turbopump assy 

PEFF — Pump efficiency 

PNPSH — Pump net positive suction head (psi) 

PSSPED “ Pump speed (i-pm) 

EPDELP — Estimated pump pressure rise (psi) 

Gp (1) Cards 3-4 

TPEFF ~ Transfer pump efficiency 

TPNPSH ~ Transfer pump net positive suction head (}Dsi) 
TPDELP Transfer pump pi’essure rise (psi) 

TPWD0T ■" Transfer pump flow rate (Ib/sec) 

Gp (1) Cards 5-6 

TEFF ■” Turbine efficiency 

TITEMP ■" Turbine inlet temperature ( R) 

T0TEMP — Turbine outlet temperature (°R) 
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TMRAT0 “ Turbine gas generator 0/F mixture ratio 

TGGPC ~ Exhaust pressvtre of turbine gas generator (psia) 

Note: For high and medium pressure pumps subroutine PARPMP will calculate 
pump speed and net positive suction pressure required. Thus input values 
need only be nominal. 

1.5 . 1. 11 Heat Source Data Input Cards. The requirement for heat sources, usually in 
the form of gas generators, for any given cryogen system is usuall}' associated with a 
requirement for heat excliangers and tiu'bines where waste heat is not available, or, 
insufficient for the energy needed. For the defined cryogen systems, accommodated by 
the Math Model Program , the heat source requirements are imbedded in the stored 
INBLK data. Thus, if the value of INBLK (SYSNUM, 4, J) = 1, the heat source data are 
required, otherwise the data cards are deleted from the input deck. 

Heat sources in a two fluid system usually occur in pairs, except for the case where a 
sii\gle supplementary heat source might be required to make up for an energy deficiency. 

For purposes of uniformity in data handling, heat source data is always arranged such 

that data for a heat source in the oxidizer side of the system is input first, followed by 

the same data for the equivalent heat source in the fuel side of the system (i.e. , paired 

som'ces). If one of the sources does not exist, then a dummy (or blank) card is entered 
in its place. The first pair of input data cards will contain data for the first pair of 

heat sources closest to the cryogen consumer. Additional data sets are then input for 
each pair of heat sources encountered while going through the system schematic toward 
the fluid supply tanks. As with the heat exchanger data, the variables are doubly sub- 
scripted and match the heat sources to the heat exchanger by position and fluid index. 

The variables employed in heat source data input ai'e as follows: 


1-65 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A99I396 


Gp (m) C;ird-1 


NUMHS0 Integer value for number of pairs of heat sources being considered 

One card is required if heat source data is to be input. 

GP (m) Card -2 


USTYPE ~ Integer value for heat source type 

HSTYPE = 1, for gas generator only 

HSTYPE = 2 , for waste heat input only 

HSTYPE = 3, for gas generator and waste heat combination 

HSMRAT ^ Heat source 0/F mixture ratio 


HS0TEM - Heat source outlet temperature (^R) 
HSAEE ~ Heat source available energy (BTUs) 


HSPRES 


~ Heat source outlet pressure (psia) 


Two cards are required for each pair of heat source units; oxidizer side unit first followed 
bj' fuel side unit — when data is to be input. 

1.5. 1. 12 Electric Motor Data Input C ards. The requirement for motor driv^en pumps, 
transfer pumps, or compressors exists in some of the smaller cryogen systems where 

pumping horsepo^\•er needed is small, or tht; duty cycle is light. For the cryogen systems 
considered in this program, the requirement for using electric motor data has been 

embedded in the preprogrammed -stored INBLK data. If, for any specified system, 
the value of INBLK (SYSNUM, 5, J) = 1, the electric motor data are required; if 
otherwise, the data cards do not appear in the input data deck. 
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The variable employed for input at the electric motor data are as follows; 
Gp (n) Card-1 


MTYPE - ~ Integer value for motor type 
MEFF — Motor efficiency 

MSS ~ Motor speed (rpm) 

PDNSTY — Power density of battery driving electric motors 

One card is used if motor data is required. If not required the card is deleted from the 
input deck. 

1.5.2 Input Data Card and Card Format; Description 

The input data cards which mal^e up the program input data deck are defined by the 
Read Statements located in Subroutines C0NTR0L, INTAB, and C0MPIL. This 
subsection presents a graphic description of each input card as an aid in visualizing 
and arranging the individual system input data decks needed for the analytical operation 
of the program. Included as aids, are several tables which explain and define the 
construction and insulation material t}'pes employed by the various subprograms . 
Included also as aids in program data setup are several tables which define and explain 
important variables that occur repeatedly. Table 1.5 .2-1 presents the variable 
names employed for control, branching and switching purposes. Table 1.5 .2-2 
presents the configuration variable names and definition. Following the tables are 
the data sheets wliich present the input data card formats. 
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Table 1.5. 2-1 

VARIABLE NAMES EMPLOYED FOR CONTROL, BRANCHING, 
AND SVTTCHING PURPOSES 


1. System IdeDtification : (Subroutine C0NTRL) 


Variable 

Alpha 

Variable 

Integer 


Read 

Input 

Equivalent 

Value 

System Defined 

NSYS 

ACP 

NAMSYS 

1 

Attitude Control Propulsion 
System (AC PS) 

NSYS 

APU 

NAMSYS 

2 

Auxiliai'v Power Unit (APU) 

NSYS 

EC/ 

NAMSYS 

3 

Life Support System (EC/LSS) 

NSYS 

FUE 

NAMSYS 

4 

Fuel Cell System (Fuel Cell) 

NSYS 

0MS 

NAMSYS 

5 

Orbit Maneuvering System (0M.S) 

Control Variables: 


(Subroutine 

C0NTRL) 

Control 


Integer 



Variable 


Value 


Description 

SYSNUM 


1 

Controls Selection of Subprograms for AC PS 



2 

Controls Selection of Subprograms for APU 


— 

3 

Controls Selection of Subprograms for ECLSS 


= 

4 

Controls Selection of Subprograms for Fuel 




Cell 



= 

5 

Controls Selection of Subprograms for OMS 

SCRIT 


1 

Specifies Subcritical Fluid Supply 


= 

2 

Specifies Supercritical Fluid Supply 
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Table 1.5. 2-1 (Cont'd) 


3. Branching and Switching Variables: 


MDTHC — Diagnostic Trace Switch, Read in by Subroutine C0NTRL, Used by CRYC0N, 
Defined in PDP-CCNTRL. 


MDTRC ( ) 
(1) 
( 2 ) 

(3) 

(4) 

(5) 

( 6 ) 

(7) 

(8) 
(9) 

( 10 ) 

( 11 ) 


Diagnostic Trace Switch for CPvYC0N (OFF = 0) 
1 Turn on ACCRES 
1 TurnonACQWT 
1 Turn on APUSUB or APUSUP 
1 Turn on CMPCAL 
1 Turn on FUELCL 
1 Turn on C0NSUM 
1 Turn on ECLSS 
1 Turn on LIQRES 
1 Turn on TANK 
1 Tui’n on TSIZEI 
1 Turn on WTACC 


MDTRC(l) is Card Column 70, MDTRC(ll) is Card Column 80 of the System 

Specification Card 


INBLK — Controls input data selection in subroutine C0MPIL via preprogrammed 
set of switches. 



I1nT3LK (SYSNUM, I, SGRIT) 

V. 


Sj'stem Specification 

Input Selection Index 
Fluid Subsystem Type 


DATA STATEMENT DEFINIITON: 


DATA ((INBLK(1,I,J),I = 
DATA ((INBLK(2,I,J),I = 
DATA ((INBLK(3,I,J),I = 
DATA ((INBLK(4,I,J),I = 
DATA ((INBLK(5,I,J),I = 


1,5),J = 

1,2)/1,1,1 

1 

Q, 

1,5),J = 

1,2)/1,1,1. 

1 

1, 

1,5),J = 

l,2)/0,0,0 

0 

0 , 

1.5),J = 

1.2)/0,1,0 

1 

0, 

1,5),J = 

l,2)/0,0,0. 

0 

0, 


1 , 1 , 0 , 1 , 0 / 
1 , 1 , 0 , 1 , 0 / 
0 , 1 , 0 , 0 , 0 / 
0 , 1 , 1 , 0 , 1 / 
0 , 0 , 1 , 0 , 0 / 
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Table 1.5 . 2-1 (Cont'd) 


For : 

1 = 1, Read Accumulator Data — IfINBLK = 1 
= 2, Read Heat Exchanger Data — IfINBLK = 1 
= 3, Read Pump Data - If INBLK = 1 
= 4, Read Heat Source Data — If INBLK = 1 
= 5, Read Motor Data - If INBLK = 1 

KSUBC — Preprogrammed Branching Variable for specified system analj^sis program 
selection — Used in subroutine CRYC0N. Defined in ST0DTA. 

. System Specification 

I - Subprogram Index 

KSUBC (SYSNUM, I) 

DATA STATEMENT DEFINITION : 

DATA (K;SUBC(1,I), I = 1, NBRSR) /6 ,4 , 10 , 9, 8, 1, 10 , 11 ,2/ 

DATA (KSUBC (2, 1), I = 1 , NBRSR) /6,3,4, 10, 11,2 , 0, 0, 0/ 

DATA (K;SUBC(3,I), I = 1 , NBRSR) /7 , 0, 0, 0, 0 , 0 , 0, 0, 0/ 

DATA (KSUBC(4,I), I = 1, NBRSR) /5, 4, 0,0, 0,0, 0,0,0/ 

DATA (KSUBC(5,I), I = 1 , NBRSR) /6 ,4, 10,9, 8, 1 , 10, 11,2/ 

JAPUS — Switching variable which reverses order of subprogram selection for APU 
subcritical or supercritical analysis. Used in subroutine CRYC0N, values 
defined in subroutine ST0DTA. 


JAPUS (SCRIT, I) 


. Fluid Subsystem Type 
Subprogram Reordering Index 


DATA STATEMENT DEFINTTION ; 

DATA JAPUS(1,1), JAPUS (1,2) /4,3/ 
DATA JAPUS (2,1), JAPUS (2,2) /3,4/ 
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Table 1.5 ,2-2 

CONFIGURATION VARIABLE NAMES AND DEFINITIONS 
(Used by Subroutine C0MPIL, CMPCAL and LSSCMP) 


1, Defined Configuration Names: 


Defined 

Input 

Variable 

Integer 

Component 

Variable 

Alpha 

Equivalent 

Value 

Item 

CFUNCT 

GAS 

FNAME 

1 

FLUID 

CFUNCT 

ENGINE 

FNAME 

2 

ENGINE 

CFUNCT 

LINE 

FNAME 

3 

LINE 

CFUNCT 

C0NTRL 

FNAME 

4 

C0NTR0L 

CFUNCT 

FITTING 

FNAME 

5 

FITTING 

CFUNCT 

TAP 

FNAME 

6 

FLUID TAP 

CFUNCT 

TEE 

FNAME 

7 

TEE 

CFUNCT 

ELBOW 

FNAME 

8 

ELBOW 

CFUNCT 

VALVE 

FNAME 

9 

VALVE 

CFUNCT 

' REG 

FNAME 

10 

REGULATOR 

CFUNCT 

ACCUM 

FNAME 

11 

ACCUMULATOR 

CFUNCT 

TANIf 

FNAME 

12 

TANK 

CFUNCT 

PUMP 

FNAME 

13 

PUMP 

CFUNCT 

HEX 

FNAME 

14 

HEAT EXCHANGER 

CFUNCT 

TRBINE 

FNAME 

15 

TURBINE 

CFUNCT 

F-CELL 

FNAME 

16 

FUEL CELL 

CFUNCT 

EC/LSS 

FNAME 

17 

LIFE SUPPORT 

CFUNCT 

END 

FNAME 

18 

END OF TABLE 
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Table 1.5. 2-2 (Cont'd) 

2. Confi gur ation Variable Definitions: 

CONFIGURATION FUNCTION CODE AND TYPE. 

1, G.AS CFTYPE-1 = OXYGEN 2 = HYDROGEN 

2, ENGINE CFTYPE-1 - HI-PRESSURE 2 = LO-PRESSin!E 

3, LINE CF'ITPE - lOA FIXED NUMBER 

4, CONTROL .USES TWO DIGIT INDEX AS FOLLOWS, 

IDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (1,2, etc.) 

IDV =10 FOB. LIGHT WEIGHT CONTROL 

= 20 FOR MEDIUM WEIGHT CONTROL 
= 30 FOR HEAVY WEIGHT CONTROL 
= 40 TOR EXTRA HEAVY WEIGHT CON'i’R 
CFTYPE = 1 TOR VALVE 

= 2 FOR REGULATOR 
= 3 FOR ORIFICE 
= 4 FOR FLOW METER 

CFUNCT = 5, FITTING USES TWO DIGIT INDEX AS FOLLOWS, 

LDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNTT DIGIT (1, 2, etc.) 

LDV = 10 FOR USE IN LINE ONLY 
= 20 FOR 4-WAY TEE 
= 30 FOR 3 -WAY TEE 
CFTYPE = 1 FOR TEE 
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CFUNCT = 


CFUNCT = 


CFUNCT = 


CFUNCT = 


Table 1.5. 2-2 (Cont'd) 


6, TAP USES TWO DIGIT INDEX AS FOLLOWS, 

LDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (I, 2, etc.) 

LDV = 10 FOR USE IN LINE ONLY 
= 20 FOR 4-WAY TEE 
= 30 FOR 3 -WAY TEE 
CFTYPE = 1 FOR TEE 

USES TWO DIGIT INDEX AS FOLLOWS, 

LDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (1, 2, etc.) 

LDV = 10 FOR USE IN LINE ONLY 
= 20 FOR 4-WAY TEE 
- 30 FOR 3 -WAY TEE 
USES TWO DIGIT INDEX AS FOLLOWS, 

LDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (1, 2, etc.) 

LDV = 10 FOR. USE IN LINE ONLY 
= 20 FOR 90 DEG ELBOW 
= 30 FOR 45 DEG ELBOW 
CFTYPE = 1 FOR ELBOW 

9. VALVE USES TWO DIGIT INDEX AS FOLLOAVS, 

IDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (1, 2, etc.) 

IDV = 10 FOR LIGHT WEIGHT CONTROL 

= 20 FOR MEDIUM WEIGHT CONTROL 
= 30 FOR HEAVY WEIGHT CONTROL 
= 40 FOR EXTRA HEAVY VTRGHT CONTROL 
CFTYPE = 1 FOR VALVE 
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CFUNCT 


CFUNCT 

CFUNCT 

CFUNCT 


CFUNCT 

CFUNCT 

CFUNCT 

CFUNCT 

CFUNCT 


Table 1.5.2 :-2 (Cont'd) 


.10, REGULATOR USES TWO DIGIT INDEX AS FOLLOWS, 

IDV = TENS DIGIT (10, 20, etc.) 

CFTYPE = UNITS DIGIT (1, 2, etc.) 

IDV = 10 FOR LIGHT WEIGHT CONTROL 

= 20 FOR MEDIUM WEIGHT CONTROl. 

= 30 FOR HEAVY WEIGHT CONTROL 
= 40 FOR EXTRA HEAVY IVEIGIIT CON'l 
CFTYPE = 1 FOR REGULATOR 


= 11, ACCUM NO OPTIONS 

- 12, TAEK (SEE TANK ROUTINE) 

: 13, PUMP USES TWO DIGIT INDEX AS FOLLOWS, 

JOPTN TENS DIGIT (10, 20, etc.) 
CFTYPE = UNITS DIGIT (1, 2, etc.) 

JOPTN = 10 FOR. MINIMUM POWER PUMP 
= 20 FOR MINIMUM IVEIGHT PUMP 
CFTYPE = 1 FOR HI-PRESSURE PUMP 
CFTYPE = 2 FOR LO-PRESSURE PUMP 


14, HEX 


CFTYPE = 1 FOR HI-PRESSURE 
= 2 FOR LO-PRESSURE 


15, TURBINE 

16, FUEL CELL 

17, ECLSS 

18, END 


NO OPTIONS 
NO OPTIONS 
NO OPTIONS 
NO OPTION’S 
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Table 1.5. 2-2 (Cont'd) 

CMTYPE - CONFIGURATION MATERIAL TYPE 

CMTYPE = 1, 321/347 STAINLEvSS STEEL 

= 2, 2219 -T 87 ALUMINUM ALLOY 
= 3, 6061-TG ALUMINUM ALLOY 
= 4, INCONEL-718 ALLOY 
= 5, TITANIUM Ti -6 A1-4V ALLOY 
= 0. CRES VACUUM JACKETED LINE 
= 7, 2219 VACUUM JACKETED LINE 

CITYPE - CONFIGURATION INSULATION TYPE 

CITYPE = 1, DOUBLE ALUMINUM MYLAR/SILK NET 

= 2, DOUBLE GOLD MYLAR/SILK NET 

= .3. DOUBLE ALUI\1INUM MYLAR /TISSUE GLASS 
CITYPE =4, CRINK DOUBLE ALUMINUM MYLAR 

= 5, l'IRC-2 CRINKLED ALUMIOTZED MYLAR 

= 6, SUPERFLOC 

= 7 , MICROSPHERES (104-135 MICRON) 

= 8, POLYURETHANE FOAM 
= 9 , FIBERGLASS BATTING (JM) 

CNOPER - NUMBER OF OPERATIONAL UNITS (CFUNCT) 

CNSTBY - NUMBER OF STANDBY UNITS (CFUNCT) 

CONFIG - CONFIGURATION TABLE 

COLUMN 1 CONTAINS THE ABOVE SIX (6) VARIABLES PACKED ONE PER 

. . BYTE IN THE ORDER THEY’’ ARE LISTED FROM LEFT TO 
RIGHT IN THE WORD. 

COLUMN 2 CONTAINS THE FLOW FRICTION COEFFICIENT 

COLUMN 3 , CONTAINS THE LENGTH OF A LINE OR THE EFFECTIVE 
L/D FOR OTHER COMPONENTS 

COLUMN 4 CONTAINS THE DMMETER OF A LINE 

COLTO.IN 5 CONTAINS THE INSULATION THICKNESS FOR A LINE 
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CASE TITLE CARD 
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CAED TiTPE - G (a) CARD-1 
P 


CARD FUNCTION - User Identification Card 

READ BY - Subroutine C0KTRL 

CARD FORM'VT (2AC, 2XA4, 3XA3, DCA5) 



CARD TYPE - Gp(b) CARD-1 
CARD FUNCTION - Case Title Card 
read by - Subroutine C0NTRL 
CARD FORMAT - (l2AC) 
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TABLE DATA CARDS 
(FOR STORED T/vBLE FILE) 
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Apprpved by: 
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Raperl No. 

1. 5.2.2 


CARD TITPE . - Gp(c) CARD-1 

CARD FUNCTION - TABLE DATA ECHO CONTROL CARD 

READ BY - SUBROUTINE INTAB 

CARD FORMAT - (515) 
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CARD TYPE 
CARD FUNCTION 
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- TABLE DATA FILE - ADD CARD 
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CARD FUJICTION - TABLE SUBSET VARIABLE CARD 
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CARD FUNCTION 
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CARD TYPE 
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CARD TYPE 

- G (f) CARD-1 
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CARD FUNCTION 

- CONFIGURATION DATA CARD 
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- SUBROUTINE C0MPIL 

CARD FORMAT 
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CARD TYPE 

- G^(g) CARD-1 

CARD FUNCTION 

- DUTY CYCLE DATA CARD 

READ BY 

- SUBROUTINE C0!^PIL 

CARD FORMAT 
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CARD TYPE 
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CARD FOrjli\T 
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CO 

CO 

CO 

CO 


0 0 0 0 0 0 0 0 0 0 


0 0 0 Dll 0 0 0 0 0 

0 0 0 0 0 0 0 0 0 s 



fi V ’I ji H r ?i n :: 






CO 


0000000000 
t I I 4 1 I I 1 ! i: 


I 


0 0 on 0 0 0 D M 

fi n n pt » II II It II IE 


CARD TYPE 
CARD FUNCTION 
CARD FORMAT 


- Gp(i-l) CARD-3 

- TANK DATA 

- (8F10.0) 


r 




t I j I t I ] I 1 i: 


i; ■» !s -j i» 'r -I <2| 


s 

w 

CO 




OO 0 0 6 0 0 0 0 OM 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 D 0 op 0 0 0 0 0 0 0 o.op 0 0 0 0 D 0 9 0 op 0 0 0 0 0 0 0 D 0 


V )J !« :j !• >•' :i M •: 


a 

I 

CO 


«i II I) i( I? It n i: 


O 

CO 


: » u M t> *1 II c 


S 

o 

o 

CO 


: It i; (1 I) H i’ II n n 


O 

CO 


i: n » ri II II II II t: 


CARD TYPE 
CARD FUI'ICTION 
CARD FORMAT 


- Gp(i-l) CAKD-4 

- TANK DATA 

- (FIO.O) 


K 


0 0 C C 0 0 0 0 0 Hi 


OOOOOOOOOOQOOOOOOOOOOOGOGOOOOOOOeOOOOOOOOOQOPOOOOOOOOeOOO 
I. •: •! n •; •> m ;; r ;i n r ^ ji :» r u t» « i* « u « 


^000000 

I* «t :: V i; V. M :t r :t *.i i: t* ir ii u n «• w u n r; i* » ri u 


r!'(ri?E: T./O SE'PG OF TIEE /Ai'^OTC CARDS Af<E REQUIRFD 
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r 


CARD TYPE 
CARD FUNCTION 
READ BY 
CARD TORt^AT 


Gp(i-2) CARD- 5 

TANK GEOMETRY OPTION CARD 

SUBROUTINE C0MPIL 
(215) 




I I J « } 


-a 


0 0 0 0 0 0 0 0 0 0 M 0 0 e 0 0 0 0 0 


I : I 1 i)fci II It u it II II II :t I 


M 0 0 0 0 0 G 0 0 

II n I* K n t: It i» »| 


NOT 

USED 


[g 0 0 0 0 1 G S t D 

L* 1 ! w n n iMin «} k* «i o M *t » n it n u 


bOOOOBOOOOpDOODDOfiOOMODOOOOOOMsOOOODM 


t: It u » A ti u H it 


u It M H tt i> II :i n 


II It u It II II n I* n 


CARD TYPE 
CARD FUNCTION 
CARD FORMAT 


- Gp(i-3) - card-6 

- TANK SEGMENT SHAPE CARD 

- (215, 7F10.0) 


r 



■ 

ii 



0 Q Q 0 0|0 Q 0 0 0 

1 M 4 t 


0 


0000000000 
It <t u It II II ii <1 a 


'■ II n II » n t> ti II 


00000000000000000000 


II u II » s tm n <i! 


!d D 0 D 0 0 0 0 0 0 

III II O U «Mi «< 44 It t:! 


NOT 

USED 


jo 0 0 0 0 D 0 0 0 0 

bi ti tMi u ii ti i* ti c\ 
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CARD TyPE 


Gp(j) CARD-1 


CARD FUi:CTION - ACCTO!ULATOR DATA INPUT CARDS 

READ BY - SUBROUTIirE C0!>IPIL 

CARD FORI'IAT - (315) , 


UOOOOOOOOOOSOOOOIIOOGOQOllODIDOODOOOOIlllOODDOIIOOtODODOD dSYM. 

f II II II ii II n I] rt It n ;i If n u :t u n u » u II u n 4« II <1 < 1 M u it n i* n u ii ii ii w » u t> u h ii ii ti ii u tt u ii ti ti ii ii it n 


CARD TYPE 
CARD FUNCTION 
CARD FORMAT 


- Gp(j) CARD-2 

- ACCUI-5ULATOR DATA 

- (FIO.O) 


3000GOOOOIIOODODOOOOO 

i< II li It ii II It II n II II II II II It II II II It i: 


0 0 0 0 0 C 0 D M 
II n II II tt It II II iiX 


CARD TYPE 
CARD FUNCTION 
CARD FORMAT 


Gp(j) CARD-3 
ACCUMULATOR DATA 
(10. 0) 


0 0 0 0 0 0 0 0 0 0 ] 0 a 9 0 0 0 0 0 0 0 0 0 0 0 0 S 0 0 0 0 0 0 0 0 0 a 0 0 g 0 0 G 0 0 O.D D 0 D C 0 D 0 0 D D 0 D D D S D 0 0 0 D 0 TT 

1 I I I t f I I I i: • II II II II II II II 11 ii ;i II ;| ;i ;t ;i ;; :: ii u ii i: ii n it it t; :i it u n ii n u n i:- 1; u n t: t* i; ti ti tt ti ii ti ii ii i: ii ii u ii ii r ii it n 


NOTE; T!vO SETS OF THE ABOVE CARDS ARE NEEDED IF ACCWJULAIDR DATA IS 
REQUIRED. 


NOT A CARD 
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1.5. 2. 15 


Heat Exchanger Data Input (when required) will always be in pairs. Use 
dummy blank card if one heat exchanger does not exist. Oxidizer side 
unit will be entered first followed by fuel side unit. 


CAED TTPE - Gp(k) CARD-1 

CARD FUNCTION - HEAT EXCHANGER DATA INPUT CARDS 

READ BY - SUBROUTIKE C0MPIL 

CARD FORMAT - (I5) 




0 0 0 0 0 


bOOOOOOOOOOimniOailOOOOOOaDOOtKIOOliOODCOIMIIIDIIDODDODODODOIIDOODDOO Trt-C-ILtMl 0 0 0 0 0 

I I 1 II It It II II 11,11 II ii II It II i; II II II It It It II It i: » 11 u nB !• II n « II 41 II « II II <1 ii II II II II II It B B i; ii ii u ii ii u ii u it ii u n ii ii n iiiTTr 


CARD TYPE 
CARD FUNCTION 
CARD FOPCIAT 


. Gp(k) CARD-2 

- HEAT EXCHANGER DATA 

- (11P6.0, 6 x,a 6) 


(OXIDIZER SIDE) 




Eh 

e 


C 0 6 0 0 0, 

I T 2 I t ( 


H 9 0 0 0 

■ I I »; :i t: 


O 


7 0 C 6 C 9 

: ■« 11 •! :• I 


O 




9 0 M P 6 C 9 9 0 0 Q 


■§L 

£ 


0 9 9 0 0 9 


Pi 

H 

O 


PU 

'SL 


19 9 9 9 9 9 9 9 9 9 0 9 B 9 0 9 0 9 


; II » V «: i:|i: u <: <> «' «> 


& 

§ 



(FiJEL SIDE) 




EH 

d 

B 


II 0 1 cue 


s 


EH 

M 

O 

g 


: 9 9 9 9 9 M 9 9 C £ M 9 9 C 


O 


X 


p f C 0 0 9 


X 

t: 


0 9 0 9 c 


PU 

IH 

o 


Mooof 

:i ij «• i' 


O 


? 0 0 0 9 0 


M9000 


a 

p 

o 


|9 0OO0O{9 09009 

: 1; (! « (i I- 
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Pump and turbine input data (v/hen required) will always be input in pairs. 
Six cards (3 pair sets) are always required. Non-pertinent variables will 
be left as blanks . If no data are required, then all cards are omitted from 
input data deck. 


CARD TYPE - Gp(l) CARD-l-a 

CARD FUNCTION - PUl-IP AND lURBINE INPUT DATA CARDS 

READ BY - SUBROUTINE C0MPIL 

CARD FORMAT - (I 5 , UFIO.O) 


1. OXIDIZER SIDE 

2. FUEL SIDE 


ooooiooooogooooaooaoooiimieDcedooiioMODDOoiigDooooDODOOiiooco m 

[( I 1 11 11 li II II II II I; i II II II II II II iiH II 11 II II n M II II II u II ii It It 11 u II II II II H II II II II H II II II II II II II II II n II II II II II II I 


CARD TYPE 
CARD rOi.'CTION 
CARD FORMAT 


- Gp(l) CARDS 3-1; 

- TRANSFER PUMP DATA 

- (4F10.0) 


3 . OXIDIZER SIDE 
U , FUEL SIDE 


OCOOOOOOOOdOIOOOOOOCOOOOOIIOODCpSDCOOOOlIDOOODDDOIIDOOODDCCDDOOOOOO 

I 'I II -I II II II II 11 1 ; II II II I. II II II ~ . II 11 II II II II It N 1 : 11 H U 11 II U II II II 1 : 11 II U M U II It II II II II II I! II II II II II II II II II II 'I 


CARD TYPE 
CARD FUirCTION 
CARD FOR?-IAT 


C-^(l) CARDS 5-6 
TURBItffi DATA 
(5P10.0) 


5 . OXIDIZER SIDE 

6 . FUEL SIDE 


0 0 0 0 0 0 s 0 e 0 ; 0 0 0 0 0 0 0 0 G 


0 G 0 0 e 0 0 0 0 OM G 0 G 0 0 0 00 3 G 0 0 0 0 0 0 0 0 0 G 0 0 g 0 0 0 0 0 0 0 0 0 0 


: :: m » u >• o n c 4 : 41 u 41 u (i r. ti 17 n ti .1 
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1.5.2. 17 


Heat eource data Input (when required) will always be in sets of two cards, 
one each for oxidizer and fuel sides of system. Use ducsiy (blank) card 
when one unit does not exist. Oxidizer side unit will be entered first 
followed by fuel side unit. 


HEAT SOURCE IHFOT DATA CARES 
CARD OXPE - Gp(m) CARD-1 

CARD FUNCTION - HEAT SOURCE DATA 

READ B3f - SUBROUTINE C0MPIL 

CARD FORMAT - (I5) 




t 0 0 t D 
111-1 



OOOOOOOOOOOOOaOOOOOOIlOIIIIOIIIMMMIDIlOOBIICOIlODDOODODDDDDODOOIIOOOIlOl) D 0 0 0 0 

]i I I I II M II ■! H n 'll II II II ,1 II II II 11 11 11 It II ;i u II i,- II im » im n o im « ml » ■' « « 11 II M M M » » » u » » ii ii ini a ii ii u n ii ii n n n 

CARD TYPE - Gp(m) CARD-2 

CARD FUNCTION - HEAT SOURCE DATA 
CARD FORMAT - (I5,5X, toO.o) 


(OXIDIZER SIDE) 




e 

e 


6 0 0 C o' 

I 1 } I ) 



|0 0 0 0 
(III 


OOOQOOQOO 

t: *: ?i I; !i II 'I 1* .. 


• 17 r :i :• » r :t ;i ;; 




,0 00000000 OMOOOOQOOO 


i: Ft II }i V. :> li :i «; 


^3 0 0 0 0 0 0 0 0 0 

«: «• «! «• «' •> It s: 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ( 
hi i; VI II » i! II ii li K (I I? c ti i> ii £i u n n n :i ii n *i 


CARD TYPE - G^(m) CARD-2 

CARD FUIiCTION - HEAT SOURCE DATA 
CARD FORI-IAT - (I5, 5X, IfFlO.O) 


(lUEL SIDE) 



I 


1 

S 


g a 0 0 c 0 G 0 0 

} g c DO 0 0 0 0 c 

0 0 0 0 0 0 0 g 0 0 0 0 0 c 0 0 0 D 0 0 0 0 0 0 0 ; 

j; :i M 51 a u u 


• i.* ij u j.- ;( •• :! '1 »; »« •: 0 ii *: » j: II c, •; I- II n II •; t •• 




e 

ti 


0 0 0 0 G 

1 t ) I t 


\ 

1 


\ 


■gL 

\ 

g 

s 

3 0 0 c\ 

3 0 0 G C 0 0 0 D g 

300(000000 

( 111 -' 

;• •} ,1 •» 14 :J <1 If 

• II :: ;« :: a ran:: 
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1. 5. 2. 18 


Electric Motor Data (when required) is input currently with a single card. If 
additional notor types end characteristics are to be added, the data input will 
need to be expanded. Wlien adding variables, take care to insure proper dinen- 
Bioning is accoinplished in the appropriate PDF. 


MOTOR INPUT D4TA CARD 


CARD TlfPE 
CARD FUNCTION 
READ BY 
CARD FORMAT 


- Gp(n) CAED-1 

- MOTOR INPUT DATA 

- SUBROUTINE C0MPTL 

- (15, 5X, 3F10.0) 




0 0 0 0 0 
1114 1 


goon 

g 0 0 0 g 0 0 0 0 0 

CQ 

0000000000 

rj 

g 

e 

3 0 OQ 0 0 0 0 0 D 

ill}:} 

I tl 11 U 11 It II 11 M (1 

'1 }> 13 >1 n li 11 n 11 M 

d u 3111 ).• 3< )i u n *: 


lOOODOODOOOODOOODOODODOOOOOODODDOO 0>C4|0 0 0 
; .1 .141 u o (I II 41 1 ) 11 II 11 11 u u 14 II 14 II II II II II 14 11 II II u II i: II n i: 14 n ii iTlr 
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1. 5. 3 Table Data Cards 

The use of semi -permanent table data and the general means of acquiring such data has 
been previously discussed in subsection 1. 2. 2 and gTaphically outlined in Fig. 
i , 2-2. ■ However, the use of an actual example will serve better to illustrate, and 
demonstrate, the procedure to be used in setting up tables for the users own specific 
applications. 

The example chosen is the Electrical Heat Exchanger Heat Transfer Performance 
Data for Hydrogen Gas utilized in Data Table 20 of the current program table set. 

The data (Ref. 1. 5-1) is presented in graphic form in Figure 1. 5 3-1 and represents 
a typical data soimce obtained from study reports. The heat transfer coefficient as 
a function of hydrogen gas mass velocity, over a given range, is given for four 
pressures. The data is given for a one inch square section of a specific flow 
element diagram which is described in detail in the referenced (Ref. 1.5-1). 

In translating curve data to table data, the limitations of computer data array manipulation 
must be kept in mind. Normally, if a computer independent variable is slightly off the 
end of a curve, the analyst simply takes a ships curve, or straight-edge and fits the 
cm've to extend the graphic function. But a computer table look-up program will only 
see the first or last value in the curve point data array and (if programmed) states that 
the value currently considered is out of range for the table . This problem is avoided 
by extending (extrapolation) each curve in the set (both ends) to insure that the resulting 
table is adequate for the data range required in the planned analysis. For the example 
it was determined that the range for the independent variable (mass velocity) should be 
0.1 to 6.0 IbsAii’-sq. in. The resulting points taken from the curve are given in the 
following table. 
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Table 1.5. 3-1 

ELECTRICAL HEAT EXCHANGER - HEAT TRANSFER 
PERFORMANCE FOR HYDROGEN GAS (REF. FIG. 1.2. 3-1) 


Mass 
Velocity 
(Ib/lm-sq. in.) 

Heat Transfer Coefficient (BTU/Hr-°R 

-Sq. In. ) at: 

■■ 

100 

(psia) 

500 

(psia) 

1000 

(psia) 

0.10 

.27 ' 

.35 

.45 

.50 

0.30 

.70 

. -78 

.88 

.99 

0.50 

.96 


1.20 

1.30 

0.75 

1.21 

1.35 

1.45 

1.55 

1.00 

1.42 

1.53 

1.65 

1.76 

1.50 

1.75 

1.85 

1.96 

2.08 

2.00 

1.97 

2.09 

2.22 

2.34 

3.00 

2.35 

2.48 

2.61 

2.78 

4.00 

2.73 

2.87 

3.04 

3.22 

5.00 

3.09 

3.25 

3.42 

3.65 

6.00 

3.45 

3.65 

3.82 

4.09 


Translation of the data from Table 1.5 .3-1 into the table data card format then consists 
of assigning the program variable names and values in the order illustrated in 
Fig. 1.5. 3-2. 

Taldng the variables as they appear for each of the table cards shown in Figure 1.5. 3-2, 
the following assignments are made: 

Card-1, Title Card 

Title = HEAT XFER.COEFF.-H2 
ND = 3 (Number of variables in table) 

NC = 4 (Number of command cards) 

IP = (Blanic) (Table will not be plotted) 

NT = 20 (Table I.D. number) 
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CARD mrPE - Gp(d) CARD-1 

CARD FJIJCTION - TAEK IDEIITIFICATIOK AND CONTROL CARD 



CARD TYPE - Gp(d) CARD-3 

CARD FUICTION - TABLE COMMENT CARD 


COMMENT p. 

(13A6.A2) 

lotiooooiitMiiiiitiotnitmgiiimticoooooiitgoeogiiiicosiieiiDODOctiMiMooeiMiDcuoeooooiiDtoiioBii 

t I 1 4 } I ) I 1 I! II mi u II i> II t; (I II n ii ;i n ii it ii ii ii ii ii u u ii u >i it n u ii ii n u ii a ii it ti u n iMi w u u ii u u a ii n ii ii ii ii ii u n n ii n n ii n ii ii ti i* n 


CARD TYPE - Gp(d) CARD-3 

CARD FUNCTION - t&LE SUBSET VARIABLE CARD 



CARD TYPE ' . Gp(d) CAKD-U 

CARD FUNCTION - tA^E DATA PLOT CONTROL CARD 



CARD TYPE - Gp(d) CARD-5 

CARD FUNCTION - TABLE SUBSET DATA CARD 
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Card-2, Command Card 

Four Command Cards are used (NC = 4). Three cards contain description 
of table and 'soiu'ce data reference , while the fourth card is simply used 
as a spare card. 

Card-3, Table Subset Variable Card 

This card contains the names of the third variable in Table 1.5 . 3-1, the 
number of values the variable can take on, and the values themselves. 


LABV = Pressure (psia) 

(Third variable) 

NP = 4 

(Four pressure values) 

TABj = 14.7 

(First value) 

TAB^ = 100 

Second value) 

TABg = 500 

" (Third value) 

TAB^ = 1000 

(Fourth value) 


Card-4, Table Plot Control Card 

This card is used to enter the X-AXIS and Y-AXIS labels and the X value 
minima and maxima for plot output of table data. 


LABX = hlASS VELOCITY 

(X variable) 

LABY = HEAT TRANS. 
COEF. 

(Y variable) 

XMIN = 0.1 

(if used) 

XIVIAX = 6.0 

(if used) 


Card-5, Table Svibset Data Card 

There will be a subtable of X and Y values for each value that LABV can 
assume. Since NP = 4, there will be foin subtables arranged in the 
increasing order of TAB^. Each subtable will have a Card 5 giving the 
number of X, Y sets of points in the subtable, the "type" of data, and the 
number of pomts to be used for interpolation. 
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NV = 11 (Eleven sets of X,Y values per table subset) 

TYPE = 1 (Discrete data points from curve) 

NIP = 3 (Use 3 points for interpolation since curve is 

somewhat parabolic) 

Card-6, Table Data Card 

Use 4 data cards per table-subset, entering three sets of X,Y data per 
card with the last card having tw^o sets of X,Y data (NV = 11). Thus, the 
first table -subset card starts with Mass Velocity and Heat Transfer 
Coefficient values for the 14.7 psia pressure curve. 

XTAB^ = 0.10 

YTABj^ = 0.27 

XTABg = 0.30 

YTABg = 0.70 

XTABg = 0.50 

YTABg = 0.96 

The completed Table 20 is illustrated as a card listing in Table 1.5. 3 -2. 
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Table 1.5. 3-2 

HEAT TRANSFER PERFORMANCE DATA FOR HYDROGEN 
DATA TABLE NUMBER 20 


HT t xr E R, CnP F '3 4 20 

nVEK'AU HrAT IRA^'SFtR COCFFtC TENT FOR H? ELECTRIC ROWerld hEX aS A 

MifvcnnK! he mass vELnciTY Amo fluid imlet Pressure, 

REF, ap«7i-7535. 


PRi:SS!lR[r 

(P 

ST A) 

4 14.7 

’Too,"' 

500, 

1 000. 

SVLLCLP/ 

HP- 

IN) U 

(RTU/HR-R-SQ.TN) 


11 

1 

3 





• 10 


.27 

• 30 

• 70 

.50 

.96 

.75 


1 .21 

l.flO 

1.42 

1 .50 

1.75 . 

P.t'D 


1.R7 

3.00 

...2.35 ... 

._ 4,0 0 

2.73 - 

5,00 


3, OR 

6.o0 

3.45 



1 1 

1 

3 




• 10 


.35 

.30 - - 

• 70 

.50 

1,10 

.75 


1.35 

l.oo 

1.53 

1.50 

1 .B5 

2.00 


2.09 

3.(>0 

P.4B 

4,00 

2.87 

5.00 


3.25 

6 • 0 0 ___ 

1.3. A 4... 



1 1 

1 

3 





• 10 


.05 

•30 

f rb 

.50 

1 .20 

.75 


1 .05 

l.oo 

. 1.65 

- , 1.50 

1.96 

? . 0 0 


2.22 

3.00 

2.61 

4,00 

3.04 

5.00 


3.42 

&.00 

3.«2 



11 

1 

3 





» 1 0 

.50 

•30 

.99 

.50 

1.30 

.75 


1.55 

1 »O0 

1 .76 

1.50 

2.08 

? . (> 0 


2.34 

3.00 

?.7B 

_ . 4,00 

. 3.22 - 

5.0 0 


3.65 

6 • 1 1 0 

4.o9 
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1.5.4 Use of Program Files and Data Files 

In the use of the Math Model Program as an operational analysis tool , it can be quite 
inconvenient to have to load the entire program , data tables , and problem deck each 
time a run is to be made . It is therefore recommended that the program and data 
tables be maintained on stored files in the facility FASTRAND drum or DISC storage, 

1.5.4. 1 Program File . The Math Model Program as currently structured contains 
approximately 16,000 source cards including the thermodynamic properties sub- 
programs. The program therefore is usually maintained on a master tape which takes 
quite awhile to read into core . It is considerably more convenient to maintain the 
program file on FASTRAND Drum or DISC storage and simply call in the file and 
copy it for use in a run. 

For the UNIV AC-1108, the procedure in setting up a mass -storage file and using it 
are generally as follows: 

Creating a Program File 

Assume that the mnemonic TCIMM is used as the program file name, then the file creation 
cards are as follows: (A Master Tape and Program File will be created) 


@ 

RUN \ 

/ 

. varies with facility operating procedures 

@ 

LID / 



@ 

DELETE, C 

TCIMM TAPE. 

(Purges tape name) 

@ 

DELETE, C 

TCIMM. 

(Purges file record) 

® 

ASG,UP 

TCIMM TAPE. ,T 

(Assigns tape requirement) 

@ 

ASG.UP 

TCIMM, , FD4 

(Assigns file on DISC) 

@ 

PDP,IFL 

CACCUM 

Source Deck 

@ 

F0R,IS 

ACCRES, ACCRES 

Cards for 

© 

F0R,IS 

Z FIND, Z FIND 

Entire Program 
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@ C0PY 
@ TIC 
@ C0P0UT 
@ FREE 
@ FREE 


TPF$. ,TCIMM. 

TCIMM. .TCIMM TAPE. 
TCIMM. , TCIMM TAPE. 
TCIMM TAPE. 

TCIMM. 


(Creates program file) 
(Makes tape label) 
(Writes tape) 

(Frees tape) 

(Frees TCIMM file) 


@ FIN or @ E0F 


(Ends run) 


A run is made and the Program File and Program Master Tape are created and 
logged in the Facility Program Library. The user is now protected in the event of a 
system crash which causes the loss of the stored program file since the Master Tape 
is a backup file . 

Using the Program File 


The stored Program File (TCIMM.) maj^ be called in for use in the following fashion: 

@ RUN 
@ LID 

r 

@ ASG,A TCIMM. 

@ COPY,P TCIMM. ,TYPF$ 

@ FREE TCIMM. 

(Reference Figure 1.5. 4-1) 

1.5. 4.2 Data Table File . Similarly, for the DATA TABLES which currently require 
approximately 1,300 source cards and could reach several thousand cards for newer 
systems, it is advisable to maintain a stored file and baclcup tapes. In this case a 
DATA file is preferred for the storage mechanism since file editing can be easily done 
from a DEMAND terminal, if the facility is so equipped. 


(Assigns file) 

(Copy file to user free of core) 
(Free file to storage) 


The creation of a data file in the UNIVAC-1108 (EXEC-8) is accomplished as follows: 
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Creating a DATA File 


Assume TNUMBAG. will be the file name chosen for TABLE DATA DECK. 


@ RUN CARD 
@ LID CARD 

@ DELETE, C 
@ ASG,UP 
© DATA.IL 


Varies with facility operating procedures 


TNUMBAG. 
TNUMBAG. ,F04 
TNUMBAG. 


(Deletes slot file 
(Disc storage) 
(Data processor) 


TABLE DATA DECK 
FOLLOWED BY 
ONE BLANK CARD 


@ END 

@ FIN or @ EOF 


A run is made and is listed by the Data Processor. File is now stored on disc or 
drum. , 


Using the Data Ffle 


The stored data file (TNUMBAG.) may be called in for use by placing an ASG card just 
before the program execution card and an ADD file card after the third card in the 
problem data input deck, as follows; 

@ ASG, A TNUMBAG. 

@ XQT 

DATA DECK USER CARD 

TITLE Header Card 

TABLE ECHO CONTROL CARD 

@ ADD TNUMBAG. 

SYSTEM DEFINITION CARD 

(Rest of data deck) 

© FIN or E0F 

(Reference Figure 1.5. 4-1) 
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FIG. 1.5. 4-1 TCIMM RUN DECK SET UP TO USE PROGRAM 
FILE AND DATA TABLE FILE 


1-104 


LOCKHEED MISSILES & SPACE COMPANY 













LMSC-A 991396 


1. 5 . 4. 3 Input Deck Data File . For the case where a group of analyses are desired for 
a given cryogen system and the "run to run” changes in the data deck are relatively 
few , it is often advantageous to place the input data deck into a data file and simply 
use change cards to alter the file when it is called in. Or , if the facility has a 
DEMAND system with terminals, it is possible to use the system EDIT0R processor 
and alter the data file prior to calling it in for a run. 

The use of change cards to alter the data deck is a simple procedure however , and the 
original Input Deck Data file can be preserved for repeated use simply by creatir^ a 
temporary file containing the changes. Assume the nemonic ACPSDATA. to be the 
file name for the ACPS Data Input Deck file. It is desired to change the value of NPRT2 
to zero to suppress all table output on the TABLE ECHO CONTROL CARD. This 
requires a zero in column 20 of the card. The new file will be temporary for one run 
only and for this purpose use TACPS DATA, on the temporary file name. 

The procedure and deck setup to be used, follows: 

(a) Before the runXQT card, insert these cards: 

@ASG,A ACPSDATA. 

@ASG,T TACPSDATA. 

®DATA,L ACPSDATA. , TACPSDATA. 

-3,3 

10 1 0 

(b) After the XQT card, and in place of a data input deck, insert this card: 

@ADD,P TACPSDATA. 

The program will now run using the temporary TACPSDATA. file, and, will list 
TACPSDATA. as a record of the temporary input data used in the run. The temporary 
file vanishes and the original unchanged file is still available for use. 
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1.5.5 Sample Input Data Deck Listing . 

As an aid in following the information presented in subsections 1.2.1 through 1.2.4, 
a listing of a typical Math Model data input deck is provided. The listing presented 
is the Attitude Control Propulsion System test problem which will be discussed in 
depth in Section 2 . 0 of this manual. Table 1. 2, 5-1 contains the complete test 
problem data input deck. 

1.5.6 Data Table Deck List 

The Data Tables currently emplo5'^ed in the program were set up to permit development 
and checkout of the subprograms required for the basic five types of system analysis. 
It, therefore, must be recognized that for systems which are more advanced, new data 
tables will probably be required. Direct substitution of tables is easily accomplished 
provided the table contains the same number of variables, arranged in the same order 
as used in the original table. 

As an aid to future users of the program, a complete listing is presented of the current 
table to illustrate the diversity of table forms accommodated by the Math Model. 
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TABLE 1.5.5-1 

ACPS INPUT DATA DECK LISTING 


USERS 

name 

6213 


100 3023S 









• ' 


ACPS - Test dehonstration proBi em 




10 

1 

1 









• a'JD 


TNUhUAG. 









Aci^S 


SUbCHlTlCAL LAST CARO 






GaS 

1 

1 

0 







02-VaP 

CONFIG 1 

tsGlNE 

0 

3 

0 







ENGl 

CONFIG 2 

i-ivt 

>0 

3 

0 

l.Oo'JS 

110, 

2.0 

0 

• 5 

3o, 

LNOl 

CONFIG 3 

ted 

21 

1 

0 

l.Q0<)Sl26»3 




FTOl 

CONFIG 4 

LpE 

10 

1 

0 

1 I0005150.0 

2.0 

4 

.5 

3o. 

LN02 

CONFIG .5 

Tap 

31 

1 

0 

l.oo*?? 

to. 5 





FT02 

CONFIG 6 

Line 

10 

1 

0 

1 .Oo’iS 

20.0 

2,0 

(I 

.5 

io. 

LN03 

CONFIG 7 

Valve 

3J 

1 

0 

l.oo^s 

10.5 




IVOl 

CONFIG 8 

Line 

10 

1 

0 

1.009S 

12.0 

2.0 

4 

*5 

3fl. 

LN04 

CONFIG 9 

Valve 

21 

1 

0 

1 »00‘JS135.0 




CV02 

CONFIGIO 

Line 

10 

1 

0 

1.00‘5S 

00.0 

2,0 

4 

,5 

30. 

LK05 

CONFlGll 

Iap 

31 

1 

0 

1.0095 

10.5 




FT03 

CONFIG12 

Line 

10 

1 

0 

1.0095 

20.0 

2.0 

4 

*5 

?o. 

LN06 

CONFIG 13 

KcG 

32 

1 

0 

1.0095336.8 




PROl 

CONF IGlR 

Line 

10 

1 

0 

1.0095 

30.0 

2.0 

4 

,5 

3(1. 

LN07 

CONF1G15 

AcLUM 

0 

1 

0 

1 



4 

.2,0 

3o. 

ACOl 

CONFlGlb 

Line 

10 

1 

0 

1.0095 

20.0 

2.0 

4 

• 5 

?0» 

LN08 

CONFIG17 

hg X 

1 

1 

0 

1 





HXOl 

CONF JG18 

G aS 

1 

2 

0 







02-LlQ 

C0NFIG19 

Line 

10 

1 

0 

1.0190 

12.0 

1.0 

4 

,5 

3(1. 

UN09 

CONF IG20 

Valve 

31 

1 

0 

l.OlBO 






CVOl 

CONFIG21 

Line 

10 

1 

0 

1.0180 

12.0 

1.0 

4 

.5 

3o.- 

LMO 

CONF IG22 

PuMP 

21 

1 

0 

1 




HPOl 

C0NF1G23 

Line 

10 

1 

0 

1.0180160.0 

1.5 

4 

.5 

30* 

LNll 

CONF1G24 

Valve 

21 

1 

0 

1.0150 

6,07 




svoi 

CONF1G25 

Line 

10 

1 

0 

l.OlSO 

l2.0 

2.5 

4 

.5 

?o. 

LN12 

CONF IG26 

Tap 

31 

1 

0 

1.0150 

6.67 




FTOO 

CONF1G27 

Line 

10 

1 

0 

1.0150 

20,0 

2,5 

4 

,5 

30. 

LM3 

C0NF1G28 

Tank 

0 

1 

0 

2 



4 

:2,0 

30. 

TKOl 

C0NFIG29 

CaS 

2 

1 







• H2-VAP 

CDNF1G30 

Engine 

0 

3 

0 







ENGl 

CONF1G31 

Line 

10 

3 

0 

1 .Oil 

IH. 

1.75 

4 

2.0 

30. 

LN21 

CONPIG32 

TEt 

21 

1 

0 

1 .Oil 

109, 




FT21 

C0NF1G33 

Line 

10 

1 

0 

1 .Oil 

l50. 

1.75 

4 

,2.0 


LN22 

CONF IG34 

TaP 

31 

1 

0 

1 .Oil 

9, 




FT22 

CONF1635 

Line 

10 

1 

0 

1 .Oil 

20, 

1,75 

4 

2.0 

30» 

LN23 

CONF 1G36 

Valve 

31 

1 

0 

1 .Oil 

9. 




1V02 

CONF1G37 

L]NE 

10 

1 

0 

1 .Oil 

12. 

1,75 

4 

2.0 

30* 

• LN24 

CUNF1G36 

Valve 

21 

1 

0 

1 .Oil 

86, 




evoo 

CONF 1G39 

Line 

10 

1 

0 

1 .Oil 

00, 

1,75 

4 

2.0 

3o. 

LN25 

CONF1G40 

Tap 

31 

1 

0 

1 .on 

9, 





FT23 

CONF1G41 

Line 

10 

1 

0 

1 .oil 

20. 

1.75 

4 

2.0 

3o. 

LN’2 6 

C0NF1G42 

MgG 

32 

1 

0 

1 .011336.0 





PR02 

C0NFIG43 

Line 

10 

1 

0 

1 .oil 

30. 

1,75 

4 

2,0 

3o. 

LN27 

C0NF1G04 

AcCUM 

0 

1 

0 

1 



4 

2.0 

3o. 

AC02 

C0NF1G45 

Line 

10 

1 

0 

1 .oil 

20. 

1.50 

4 

2.0 

3o. 

LN26 

C0t,FlG46 

hex 

1 

1 

0 

1 





HXOJ 

C0NF1G9/ 

G A S 

2 

2 








H2-L10 

CONF IGUe 

Line 

10 

1 

0 

1 .oil 

12, 

1,50 

4 

2,0 

-3o, 

LN29 

C0NF1GM9 

VaUVE 

31 

1 

0 

1 .oil 

9. 




CV03 

CONFIG50 

Li xE 

10 

1 

0 

1 .oil 

12. 

1.50 

4 

2,0 

3o. 

LN30 

CONF1G51 
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■ TABLE 1.5. 5-1 




ACPS INPUT 

DATA DECK LISTING 

(CONTD) 




21 

1 0 

1 




HP02 

C0NFIG52 

Line 

10 

1 0 

1 .018 i20. 2.0 4 2.0 

3o. 


LN31 

C0NFIG53 

Valve 

21 

1 0 

1 .016 

5.6 



SV02 

C0NF1GS4 

Line 

10 

1 0 

1 .016 

12. 2.0 4 2.0 



LN32 

C0NF-1U55 

Tap 

31 

1 0 

1 .018 

5,6 



FT24 

C0NrlG56 

Line 

10 

1 0 

1 .016 

24. 2.0 4 2.0 

30. 


LN33 

CONF1G57 

TiNK 

0 

1 0 

2 

4 2.0 

3o. 


TK02 

CONFIG58 









ENDC7G59 

4, be 


540, 

.9 

3 




DCTLOl 

6.1b 


7475. 

.9 

3 




0CYL02 

3. be 


2094, 

.9 

3 




0CYU03 

38,60 


b36. 

.9 

3 




DCYL04 

7. as 


2061. 

.9 

3 




DCYL05 

3. be 


b93. 

.9 

3 




0CYL06 

66.10 


536. 

.9 

3 




0CYL07 

32. iC 


714, 

.9 

3 




0CYU08 

10‘4.10 

.. 

566. 

,9 ’ 

3 




0CYL09 

'31. VO 


16/6, 

.9 

3 




dcylio 

16.16 


571046. 

.9 

3 




OCYLll 

U9.00 


9564. 

.9 

3 




DCYL12 



•1 . 






ENCINPUT 

3 

350. 400. 

1750 

. 2So, 40* 


4. 

ENGINE 

1 

1 

2 2 

2 





SHAL.TK.02 

165. 


16. 

170. 

26.7 31.7 

.2 


2. 


3. 


5.066 







1 

1 

2 2 

2 





SHAL.TK.ha 

37, 


16. 

40 . 

19,1 24,1 

.3 


2. 


3. 


5 ; 







1 

0 







IWOP 1 1 

1 

4 

1 






ACCU6-02 

350, 

2000. 

.1 

2. 2.5 


2.05 

■500. ACCUP-02 

1 

4 

1 






ACCUN-H2 

350, 

2000, 

.2 

2, 72,5 


5,20 

•500, ACC0N-H2 

1 








NUFihtX 

2000. 1100 

. 173. 350 

. 245, 

215. 2030, 2000, 

3®. 

30 

. 1 

, hXOl 1 

2000, 1026 

, 42. 350 

. 500. 

470. 2010, .2000, 

30 . 

10 

• 1 

, HX03 1 

2 

f 

52 8.7 

aooofl 

. 2023. 




PUMPl 

2 

• 

54 l.l 

70000 

. 2023, 




PUHP2 









THPUNP 1 









TRPUPP 2 

,bb 


2000, 

1160, 

,891 250. 




TUR0N 1 



2000. 

1160, 

.891 500. 




TURBN 2 

1 








NUHH50 

1 


1.0 

2060. 

245, 




HSOKC 1 

1 


1.0 

2060. 

500. 




HSUKC 2 
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1,5. 6.1 LISTING OF THE DATA TABLES 


DATA TABLE -1 . 

KCS-THRUSIEH WEIGHT ^ S • 

HIGH PKEbSURE APS THHUSTER 
f:EGEfJ, SLOT TYPE CU. CHAMBER 
tiUAD PvtUUlIL'ANT VALVES, RaD, HOZZLE 

EXPANSION RATIO SET TO MO FOR THIS DEMONSTRATION TABLE 


To = TF 

(R) 

2 200, 

500. 



pc (PSIA) 


3 100. 

30U. 

500. 


Thrust ilb-F) tca 

WEIGHT (LB 

-H) 



tt 

1 2 





100. 

19.1 

300, 

29. 

600. 

40,3 

iooo. 

SM. ■ 

1500. 

70. 

3000. 

1 18. 

6000. 0 

234,0 

inooo.o 

475.0 



8 

12 





100. 

15.9 

300, 

20.9 

600, 

26, S 

ioou. 

33.5 

1500, 

41. 

3000. 

6M, 

60UU.O 

1 18,0 

loooo.o 

218.0 



8 

1 2 





100. 

15. 

300, 

18.9 

600. 

23.1 

ioou. 

28.2 

I5CC. ‘ 

33.9 

3000. 

49.8 

600U.O 

fi| .0 

loooo.o 

131.0 



8 

1 ■ 2 





100. 

19,1 

300, 

29. 

600. 

40,3 

ioou. 

54, 

1500. 

70. 

3000, 

M8, 

600U.O 

234,0 

loooo.o 

475.0 



• 8 

1 2 





100. 

■ 15,9 

300. 

20.9 

600. 

26.8 

IOOU. 

33.5 

1500. 

Ml. 

3000, 

64, 

600U.0 

CD 

o 

10000,0 

218.0 



8 

r 2 





100. 

15, 

300, 

18.9 

600. 

23,1 

ioou. 

28.2 

1500. 

33.9 

3000. 

49,8 

600U.0 

81.0 

loooo.o 

131.0 




DATA TABLE -2 



kCs-vac. sp. ihfulse 

3 

4 


HIGH PRESSURE APS thruster 

THtURETICAL PEFFORIiANCE FOR GASEOUS HY0R06EN/GASE0US OXYGEN 
Expansion jjatio set to mo for this demonstration table 


PROPELLAiil TEIIP, 
fljXIURE RATI0(0/F) 
9 1 3 

3 100. 

ISP(LBF-5EC/LBMj 

250. 

5M0. 


1. 

'360. 

1.5 

392. 

2. 

418, 

2;s 

435.5 

3. 

MM5.5 

3.5 

451, 

M; 

m5m; 

9 13 

5. 

MSS. 

7. 

442, 

1 . 

‘398, 

i.s 

425. 

2. 

441.5 

2;5 

MSI ; 

3. 

457.5 

3.5 

461,5 

m; 

463.5 

9 1 ■ 3 

5. 

463.5 

7. 

4M8. 

1 . 

M29. 

1.5 

447. 

2. 

459, 

2;s 

M67. 

3, 

472. 

3.5 

474. 

M. 

m7m; 

5. 

M70.5 

7. 

452. 
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DATA TABLE -3 

5 ^‘EC.HT/Lb OF C2 pEflOvED 1 *♦ 1 

SPECIFIC heat per lb. OF 02 WITHDRAWN 

(SPEC. HEAT) VS (DENSITY) AT A GIVEN PRESSURE 
UEnSITV = F (PCT. withdrawn, PF/(ZF*TF) ) 


pressure 

(PSIA) 

S 700. 

1000. 

ISOO. 

2000. 

PLOT LABEL 






21 1 

1 





a.nsG 

21S.88 

2.241 

212.94 

2.402 

196.04 

2.SV0 

179.47 

2.811 

161.24 

1.28S 

161.24 

i;S27 

126.64 

4.0S9 

108.76 

4.S67 

9S,90 

S.0V7 

SS.18 

7.168 

S9.fl| 

8.S78 

SO. 10 

ID. 

44. 

IS. 

11.7 

20. 

29.1 

2s; 

28;s 

10. 

11. S 

IS. 

18. 

MOi 

47. «5 

4S. 

S9.S 

'0. 

7S. 

60^ 

IIS. 

70.126 

164. 



20 ■ 1 

1 ■ 





2.RI7 • 

21S.24 

1.109 

217,76 

1.412 

194.90 

1.734 

172.64 

4.2S4 

ISI.02 

4.F7I 

129.96 


124. 7S 

. 7.041 

87,87 

9.068 

67,80 

in. 

60. 

IS. 

4S.8 

20, 

19, S 

2s; 

17;9 

10. 

19,6 

IS, 

44.8 

mo: 

Sl.S 

4S. 

64.9 

SO. 

80. 

Go; 

ii9;s 

70.126 

166.9 



17 ■ 1 

1 





N.1I2 • 

211.81 

. S.06I 

192.89 

S.967 

IS9.S0 

7.047 

112.88 

8.111 

114.61 

9,141 

101. 4S 

Kj.ais 

90.65 

14.772 

64. 6S 

|9,8S4 

SI, 02 

2S. 

SI. 

■ in. 

Sl.l 

IS. 

ss. 

4o; 

62.2 

4S. 

72, S 

SO. 

8S.7 

6o; 

I2i;7 

70.126 

170, 



17 ' 1 

1 ■ 





S.Gb? • 

212.12 

6.046 

214.14 

7.022 

179. SO 

B. 140 

IS?,. 18 

9,022 

116, 4S 

to. ISO 

121. OS 

I2;6t>2 

' 97^93 

IS. 476 

82. OS 

• 19,617 

68.68 

2S. 

■ 64.7 

■ in. 

61,2 

IS. 

6S.1 

4o; 

70.9 

4S, 

79.9 

SO. 

90.8 

6o; 

126. 

70,126 

174. 



IS ' 1 

1 





8. IBS ■ 

228, SI 

9.20S 

198,44 

10.240 

I7S.72 

12.6(8 

119.40 ' 

I4.4S7 

,I26.2S 

I6.SS1 

111.42 

20. 

99, 

2S. 

66, 1 

10. 

81. S 

IS. 

62; 

40. 

86,9 

4S, 

9S.6 

so; 

I07;4 

60. 

117.7 

70. 

126 )80.B 


DATA TABLE -4 

SPEC.HT/Lb OF H2 REMOVED T H H 

SPF.ClFiC HEAT PER LB, OF H2 WITHDRAWN 

(SPEC, HEAT) VS (DENSITY) AT A GIVEN PRESSURE 
density s F(PCT, withdrawn, PF/(ZF*TF)) 


pressure 

(PSiA) S 

100. 

SOO. 

TOO. 

1000. 

PLOT LABEL 






IS 1 

3 





.214 

999.41 

.Ill 

S6S.SI 

.S81 

414, OS 

.40' 

162, 

.41 

126. 

.46 

296, 

.S 

■ 274, 

1. 

ISI. 

l.S 

119. 

2. 

III. 

2.S 

124. 

1.0 

ISI. 

l.S 

192; 

4,0 

218. 

4.16S 

272. 

IS' 1 

1 





.218 ■ 

IS89.88 

.420 

786.88 

.642 

410.93 

, 73 ' 

170. 

.76 

140. 

.80 

116. 

.86 

291. 

1. 

24S. 

l.S 

181. 

2, 

162; 

2.S 

164. 

1.0 

IBS. 



1- 

no 
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3.5 

217. 

4.0 

2'»8i 

4.36S 

292. 

it' 

I 1 





.213 

■ 2IS8.33 

. .318 

IS42.80 

.423 

1 194,40 

.S32 

901,90 

.647 

674.37 

.899 

412.82 

.9B 

376. 

1.03 

360. 

i. 10 

348. 

i . 19 

313. 

I.S 

2S6. 

2.0 

208, S 

H.U 

Ift' 

202^ 
2c2. 
1 3 

3.0 

4.36S 

217. 

312. 

3.S 

24S. 

.203 

3208.73 

.408 

1683.98 

.S9S 

1209,78 

.R2I 

793, H9 

1.02 

S7I.99 

1.27 

42S.33 

.36 

390. ' 

1.40 

378. 

1 .SO 

3S2. 

1 .“jS 

im. 

2,0 

283. S 

2.S 

261.S 

1.0 

M.36S 

l« 

26S. 

m2; 

1 3 

3.S 

284. 

4.0 

3IS. 

.2‘iM 

■ 36SM.70 

.4IS 

2264.82 

.614 

1642,97 

;fiis 

I28S.33 

1.023 

984.78 

1 .244 

7SS.4I 

1 ;loo 

■6>|7,3S 

1.723 

SOS, 19 

1.876 

4SS.42 

I.9S 

‘122. 

2.00 

414. 

2.0s 

408. 

2.18 

391. 

2. *5 

363. 

3.0 

344, S 

3iS 

m?;*; 

. 4.0 

369. 

4.36S 

393. 


DATA TABLE -5 

TKMP. /LB. OF 02 pEMOVEO 3 H S 

■■ iemFeraturk (Oeg-r) per lb. of 02 withdrawn 
(T f.(IP.) V5 (OFflSITY) AT A GIVEM PRESSURE 
DENSITY = F(PCT. withdrawn, PF/(ZF)TF)) 


PRESSUkF. 

(PSIA 

S 700, 

1000. 

ISOO, 

2000. 

Plot label 
21 1 
2.0S6 

3 

(000, 

2.241 

920, 

2.402 

860, 

2.S90 

800, 

2.81 1 

740, 

3.2RS 

640. 

3.S27 

600, 

4.0S9 

S30. 

4.S67 

480. 

S.097 

' 440. 

7.(68 

3S0, 

8.S78 

320, 

I0.2u9 

300, 

(4.492 

280, 

(8,617 

276,19 

2S. 

276.19 

36.171 

276,19 

44.34S 

270, 

SI ,6uS 

2SS. 

60.023 

22s, 

72.2S2 

160. 

18" 1 
2.9(7 

3 

(000. 

3.(09 

940, 

3.412 

860, 

3.784 

■780. 

4.2S4 

700, 

4.871 

620, 

S.OSb 

600, 

7.041 

460, 

9.069 

390, 

lO.OUO 

370. 

14,702 

320, 

21.749 

300, 

26.9<j9 

29S. 

34.(60 

290, 

42,970 

280. 

SI .612 

260, 

60,710 

22S, 

72. SIO 

I6Q. 

IS 1 

4,312 

3 

1000. 

S.06I 

860, 

S.967 

740, 

7.047 

'640. 

8.111 

S70. 

9.143 

S20. 

I0.23S 

480. 

14.772 

390, 

I9.RS4 

3sn, 

2S.2B8 

33b, 

34.878 

310, 

42.293 

29S, 

S 1 . 1 37 

270, 

60.72S 

230, 

72,926 

160. 

IS 1 

S.6S7 

3 

1000. 

6,046 

940, 

7.022 

820. 

8.(40 

'720, 

9.022 

660, 

(0. ISO 

600, 

I2;662 

SIO, 

IS. 476 

4S0, 

(9.6(7 

400. 

26.1(7 

360. 

34.9(4 

330, 

4S.084 

300, 

SO. 769. 

280. 

60.741 

23S. 

72.SS9 

I6S. 

12 1 
8. IBS ‘ 

1 

jOOO. 

9.20s 

900, 

10.240 

820. 

12.8(8 

680. 

I4.4S9 

620. 

I6.SS3 

S60. 

20.909 

430, 

31.139 

390, 

41.334 

340, 

SI ,2b3 

29S. 

60.791 

24S. 

72.618 

170, 
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DATA TABLE -6 

TEMP./UB. OF H 2 pEMOvEO 3 'm 6 

■■ lEMFbRfiTURE (DEG-R) PER LB. OF H2 WITHDRAWN 
(TtilP) VS (DENSITY) AT A GIVEN PRESSURE 
density = r(PCT. withdrawn, PF/(EF*TF)) 


pressure 

(PSIA) 

S 300. 

SOO. 

700. 1000. 

PLOT LAREL 






»7 1 

3 





. 2 m 

260.0 

.313 

180.0 

.333 

ISO.O 

.MO' 

me. 

.M3 

no. 

.M6 

I2M. 

.SO 

1 IS. 

.7S 

89. 

i.on 

78, S 

I.2S 

73. 

I.S 

69.6 

2. 

66. 

2.S 

6S.3 

3. 

62. 

3.S 

sn. 

M. 

si; 

M.36S 

M3.S 



16 1 

3 





.218 

W20.0 

.M20 

220.0 

.6M2 

ISO.O 

.73 

no. 

.76 

127. 

.80 

123. S 

.BS 

120. 

1, 

107.8 

I.2S 

9S.S 

I.S 

67. S 

2* 

79. 

2.S 

73.3 

3. 

68 n 

, 3.S 

62.3 

M.O 

SM.7 

M.36S 

H8.S 





18 I 

3 





.213 

600.0 

.318 

MOO.O 

.M23 

300,0 

.S32 

2R0.0 

• 6M7 

200.0 

.699 

ISO.O 

.SH 

132. 

1.03 

128. S 

I.IQ 

123.0 

i.2 

119. 

: l,2S 

116. 

I.S 

I0M.8 

2.0 

90. S 

2.S 

60.8 

3.0 

74,2 

3.S 

66. S 

H • 

SB. 

M.36S 

SI. 

16 1 

3 ' 





.203 * 

900,0 

.M08 

MMO.O 

.SS9 

320.0 

;B2| 

220.0 

1.02 

180.0 

1.27 

ISO.O 

1.36 ■ 

IMO.S 

1 .MO 

138.0 

i.sn 

ni.o ■ 

I.SS 

■ 129. 

■ 2, 

103. 

2.S 

94. M 

3. 


3.S 

7M.M 

M, 

63.9 

R.36S 

' ss.s 





IB 1 

3 ■ 





.2SR ■ 

1 loo. 

.MIS 

6S0.0 

.6IM 

M2S.0 

.RIS 

'320, 

1.023 

2S0.0 

I.2MM 

2IS.0 

1 .Woo 

190. 

1.723 

160. 

1.876 

ISO.O 


m3.c 

2.0 

139.0 

2. OS 

137.0 

2. IB 

130, 

2.S 

117. 

3. 

101. 

3.S 

66;9 

M.O 

73.9 

M.36S 

6S. 


DATA TABLE -7 

RP./ VS PGG,M/r»FA('B»PCHP S3 7 

reference reactant flow at T,I,T.= 2060 DEG R, 

(RR) VS (PCT.r.P.) aT a given (PRES. of GG)»(MIX.RATn)»(P-AnBlEtlT) 


PRES, GAS GEM 

PSlA 

3 

300. 

600. 

UlXIURF. 

RATIO 


2 

,■5 

1,0 

aiibjent 

PHESSUFE 

2 

0. 

14. 7 

PLOl RRI 






2 

1 

2 




0, 

■ 

C. 


|00. 

7.S2 

2 

1 

2 




0, 


1.23 


jOO. 

8.S7 

2 

1 

:U 





1 

0. 


too. 

9,60 

2 

n. 

3.00 


100, 

10,47 

2 

1 

2 




0. 

* 

0. 


100, 

6, S3 

2 

j 

2 




0, 


.84 


100, 

7.13 
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a 

0. 

{ 

a 

0. 

jOO. 

a 

1 

a 


0. 


.780 

|00, 

a 

1 

a 


0. ' 


0. 

100, 

a 

1 

a 


0. 

a’ 


.76a 

jOO, 

1 

a 


0, 


0. 

100, 

a 

j 

a 


0. 


.81 

o 

o 

• 


DATA TABLE -8 


fi.58 
9.30 
6.9a 
6.6S 
8. MS 
8.70 


KK VS r0Gfl1/R,PAMniPCHP s M 8 

(BK) KCrr.RKNCE; Rr.ACTANT AT T.l.T. s aoSO DEO n 
kK — cufivrf.siON factor roR refeoence reactant rr 


(KK) vs 


rcT.lir,) at a ClVEIt (PRES of G 0 ),(MlX,RAT 10 )t(P-AMBIENT) 

900. 


PfiES. OAS 

CtN PSIA 

3 

300. 

600. 

HlXIUHf. RATIO 


a 

,5 

1.0 

ambient PBESSUF.E 


a 

' 0, 

(M.7 

PLOl K| 






a 

j 

a 




0. 


1.078 


100. 

1.078 

a 


a 


■ 


0. 


1 .037 


100, ’ 

1.069 

a 

j 

a 




0, 


1 .062 


jOO, 

1 . 06 a 

a 

( 

a 




0. 

* 

I.03S 


jCO. 

1.055 

a 

I 

a 




0. 


I .087 


100. 

I.C87 

a 


a 




0, 


i.os 


;oo, 

1.082 

a 

1 

a 




u. 

- t 

1,067 


100. 

1.067 

a 

j 

a 




0. 


1 .0M4 


jOO. 

|.06M 

a 

j 

a 




n. 


1 .09 


100, 

1.09 

a 

1 

a 




n. 


1.052 


(00. 

1.086 

a 


a 




0, 


1 .068 


100, 

1.068 

a 

! 

a 




n. 


1 .0M7 


100. 

1.068 

DATA TABLE 

~9 





OMS ENfilNt 

V;E l GHT 


3 4 


ADIABATIC V:aI.L 

engine 




expaksion ratio 

FIXED 

AT 

MO. 



BEFERtlJCE - aerojet PARAHeTRK DATA FOR LIQUID BIPROP, ENGINES. 6 - 3 - 60 . 


PC (PSlA) 


3 loo. 

THRUST (Lb-F) 

ENG 

,WGT, (LB 

- 6 ( 

2 

- 

aoo. 

13.0 

1500. 

M500. 

1 la.o 

6000. 

6 1 

■ a 


auo. 

6.U 

1500. 

MSuo; 

52,5 

6CC0. 

6 1 

2 


2UO. 

M.6 

I5C0. 

MSUO, 

3M.1) 

6000. 


LOCKHEED MISSI 


aso. SOO. 


M2, 5 

3000. 

77.5 

IM7.0 

6000. 

186.5 

21. M 

3000. 

36.8 

67.8 

nO(TO. 

88,5 

IM.6 

3000. 

21.0 

M3. 7 

8000. 

57.0 

& SPACE 

COMPANY 
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DATA TABLE -10 


CHS vAC. SP. IIIFULSE 1 *» 10 

J’UhP FtD ENGINE 
EXP/'f)SION r.ATlC FIXED AT MO. 

PEhF.Kr.riCk - aerojet PARAKETP.IC data for liquid diprop, engines, 6“2-69, 
PC <PSIA) 3 loo. 2S0. SOO, 


niXIURK RATIO (0/F) ISP (LBF-SEC/LBH) 

t * * 


9 

j 

■ 3 





1 .0 


290.0 

1.2 

295.2 

i.H 

300.4 

1 .h 


300. S 

1.8 

298, S 

2.0 

295.0 

2.2 


292.0 

2.M 

2B7.S 

2. A 

282,'; 

9 

1 

3 





1 .0 


293, S 

1.2 

302,0 

1.4 

30B.0 

r.A 


309.7 

1.8 

310, S 

2.0 

308, S 

2.2 


306.0 

2.4 

301,2 

2.5 

299, S 

9 

1 

3 





i.n 

* 

297,0 

1.2 

306, S 

I.M 

312.8 

1.6 


316. S 

1.8 

318,0 

2.0 

310,5 

2.2 


3IS.8 

' 2.M 

310. B 

2.5 

314.1 

DATA TABLE 

-11 






HEX MOT 

GA$ 

FLOv; - L02 

S 

8 H 



heat EXCHaNGCH LOT GAS 

FLOW TO 

PROVIDE conditioned 

OXYGEfl 

- HIGH PRESSURE 


SCALbP FRCi; AEROJET PRESEMTATION DATA OF 1/30/70 



HOT GAS SIDE 


COLO GAS Side 

tin 

2000 R 


175 R 

TOUT 

TOO R 


AS SHOWN 

PIN 

ISO-250 PSIA 


parameter 

PIN COl.O IPSIA) 

4 2c,Q. 

450, 

650. 1200. 

TOUl HOT (R) 

2 500. 

1000. 


TOUl cold |R) 

3 2C0. 

300. 

400. 


CC2 FLOW (LB/SEC) G.C. FLOW (LB/SEC) 0. IM, 

2 0 

.00*>928 0. 

2 O' 

.0MB 0. 

2 0 

.086M28 0, 

' 20 ' 

.OOSV28 0. 

2 O' 

.0MB n. 

■■ 20 ' 

.086M28 0. 

2 O' 

.CQS6IM 0, 

•20' 

.CMSM28 0. 
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2 

0 

t'BieST 

0 

2 

0 

00S6I4 

0 

?. 

0 

04'»42fl 

0 

2 

0 

OB 1 HS7 

0 

2 

0 

OOSI 14 

0 

2 

0 

041428 

0, 

2 

0 

C7MS7I 

0 , 

2 

0 

DOS! 14 

0, 

2 

0 

041428 

n, 

2 

0 

074S7I 

0 

2 

0 

004714 

0, 

2 

0 

03UI42 

0, 

2 

0 

CS4I42 

0, 

2 

0 

.004714 

0, 

2 

0 

030142 

■0, 

2 

0 

1 OSH 142 

■ 0, 


DATA TABLE -12 

f 

HEX HOT GAS PLOW - UH2 SB |2 

HEAl EXCHAfiGPf: HOT GAS FLOW TO PROVIDE CONDITIONED HYDROGEN - HIGH PRESSURE 
SCALED FROM AEROJET PRESENTATION DATA OF 1/30/70 



hot gas SIDE 


COLD 

GAS SIDE 

tin 

2000 R 



sn R 

TOUT 

700 R 


AS 

SHOWN 

PIN 

isOfPno PsiA 


• 2S0f4S0 

- 1200 

PIN COLD (PSlA) 

2 100. 

1000. 



ToUl HOT (R) 

2 son. 

1000. 



Tour cold (r) 

3 200. 

300. 

400. 



LH2 flow (LB/SEC) G.G. FLOW (LB/SEC) 0. 14, 


2 

0 

.2SS7I4 

0 

2 

0 

,41 1428 

0 

2 

0 

,S9V28S 

0 

2 

0 

.2SS7I4 

0 

2 

0 

.41 1428 

0 

2 

0 

.S9V28S 

0 

2 

0 
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.2SS7IH 0, 

2 0 

,m«H28 0 , 

2 ' O' 
.S9V2BS 0. 

2 O ’ 

,2S‘>?m 0. 

2 0 ■ 

,mm28 0. 

"2 C ■ 

.S9V28S 0. 


DATA TABLE -13 

OAS GENtRftTuR WEIGHT 47 II 

GaS GF.MERaTCR assembly weight as a function of gas generator flow rate 

GAS generator ASSEMBLY WEIGHT CONSIOF.RS - 

i. Bipropellant pcpfet valves and actuators with igniter 
■ ASSEMBLY AND EXCITER BOX AND CABLE. 




2. mixture 

RATIO CF I. 

1 And fuel 

Inlet temperature of 3So 


TOUT 

IR) 


2 ICOO. 

3000. 




PC (PSIA) 


S 100. 

200. 

2S0.0 

300.0 SOO 

G.G. 

FLOW 

(LB/SEC)G. 

G.A. WEIGHT 

(LB) 




9 

1 

3 





0. 

* 

■ IS. 


2. 

26. 

4. 

3B.2 

s: 


46. 1 


6. 

S8.6 

7, 

78. 

vjo 


1 17. 


1 1 .0 

161 . 

12. 

179. 


9 

1 

3 





0, 


■ IS. 


2. 

22.4 

4. 

30.9 

s; 


T6. 1 


6. 

42.8 

7. 

S4.9 

v;o 


7,3, S 


1 1 .0 

98. 

12. 

1 10. 

‘ * 

9 

1 

1 





0. 


■ IS. 


2. 

20. 1 

4. 

26. S 

s; 


30.7 


6, 

37. 

7. 

47.6 



64.0 


1 1 .0 

84.0 

12. 

9S.0 


9 

1 

3 





0. 


IS. 


. 2, 

19.1 

4. 

24. 

s; 


27.4 


6. 

32.3 

7. 

40.2 

v.o 


SS.S 


1 |.0 

72.0 

12. 

81.0 


9 

1 

3 





0. 


■ IS. 


2. 

17.6 

4. 

21.6 



24.3 


6. 

28. 

7. 

33.4 

y.'o 


42. S 


1 1.0 

S3.0 

12. 

SB.S 


9 

1 

3 





0, 

* 

■ IS. 


2. 

26. 

4. 

38.2 



46,1 


6. 

SB. 6 

7. 

78. 

y;o 


117. 


1 1.0 

|6l . 

12. 

179, 


9 

1 

3 





0. 


■ IS. 


2. 

22.4 

4. 

30,9 

si 


36. 1 


6. 

42.8 

7. 

S4.9 

YiO 


73. S 


1 1.0 

98. 

12. 

1 10. 


9 

1 

3 





0. 


'IS. 


2. 

20. 1 

4. 

26. S 

Si 


30.7 


6. 

37. 

7. 

47,6 

9i0 


64.0 


1 1.0 

84.0 

12. 

9S.0 


9 

1 

3 





U. 


■ IS. 


2. 

19. 1 

4. 

24. 

si 


27.4 


6. 

32.3 

7. 

40.2 

9i0 


SS.S 


1 I .0 

72.0 

12. 

81 .0 
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9 

Ut 

1 1 
I'i. 


17.6 

M. 

21.6 

V.O 


A* 


7. 

71. ^ 


II. 0 

%7.0 

12. 

16, S 


DATA TABLE -14 


Loa THAIISKr IHIUP weight 1 

e 

IN 





***** note ***** 



Tlllk 

OATA 

IS All APPR6X1I1AT10M ONLY 

Alio WILL 

BE REPLACED 


Ef F/Clf,f(Cy 


260. 

60. 



iipr>ti 

d'5.1 ) 


.**0, 

1. 



HtlAU 

HI 1*1- 

(PSD 

2,1. 

10. 



Ut>2 Fl-OH (Lfa/5RC) PUitR 

GO 





6 

1 1 





U 


1. 

1. 

IS. 

10. 

21. 

^9* 

6 

16, 

1 1 

30. 

1 10. 

70. 

900, 

0. 


1. 

1. 

21. 

10. 

17. 

20. 


122, 

30. 

260. 

70. 

2300. 


6 

1 1 





V 


‘1. 

1. 

11. 

ID. 

21. 

20. 

6 

16. 

1 ■ 1 

30. 

1 10. 

70. 

900. 

0. 


*1. 

1. 

21. 

10. 

17. 

20. 


122. 

30. 

260. 

70. 

2300, 


6 

13 





0 


'1. 

1. 

11. 

10. 

21. 

20. 

b 

16. 

I ' 3 

30. 

no. 

70. 

900, 

0. 


‘1, 

1. 

21. 

10. 

17. 

2p. 

6 

122. 

1 ■ 3 

30. 

260. 

70. 

2300, 

0 


■1. 

1. 

11. 

10. 

21, 

20. 

6 

16. 

1" 3 

30. 

no. 

70. 

900, 

U. 


'1. 

1. 

21. 

10. 

17. 

20. 


122. 

30. 

260. 

70. 

2300. 

DATA TABLE • 

-15 





LH2 

TrANsFFR PlJliP weight s 

2 

I*> 





***** note ***** 



THIS) 

DATA 

IS All approximation only 

AMO will 

BE REPLACED 


tFf ICIRNCY 

2 60. 

60. 



NFSh 

(Pbl ) 

2 0. 

3. 



MtAO 

RIbE 

(PSI ) 

2 1. 

10. 



Lli2 

FUOH 

U.B/SEC) PUilP 

WEIGHT (LB) 





6 

1 3 




0, 


'1. 

1. 

9. 

10. 

13.6 

1^. 


19.1 

20. 

26.9 

10, 

120. 


7 

1 ■ 3 





0. 


1. 

1. 

11. 

10. 

23. 

1^. 


33.2 

20. 

17, 

30. 

80.21 

bO.O 


110.0 






6 

1 3 





0. 


1. 

1. 

9. 

10. 

13.8 

1^. 


19.1 

20. 

26.9 

10. 

120. 


7 

1 3 





u. 


‘1. 

1. 

11. 

10. 

23, 



33.2 

20. 

17. 

30. 

80.21 

SO.u 

6 

110,0 
1 3 





u. 


'1. 

1. 

9. 

10. 

13.6 
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IS. 

19, H 

20. 

26.9 

SO. 

120. 

7 

11 





0. 

*s. 

s. 

l>«. 

10. 

21. 

iS. 

11.2 

20. 

M7. 

10. 

80. 2S 

so.o 

iso.o 





6 

1 1 





0. 

s. 

s. 

9. 

10. 

11.8 

IS. 

19. M 

20. 

26.9 

SO. 

120. 

■ A 7 

11 




D. 

s. 

s. 

19. 

10. 

21. 

IS. 

11.2 

20. 

M7. 

10, 

80. 2S 

su.u 

isn.n 




DATA TABLE 

-16 





MOTOR HEIGHT "" 

1 

e 

16 



MOTE - 

BRUSHLESS D-C 

MOTOR 

WEIGHT iMCl.UOES 




electronics 

(FIXED 

SIZE FOR each rOHER LEVEL) 


ROTfin 

stator 

BUARlKGS 

SMART 

housings 


MORSEPOWEH 


S 1. 

s. 

2S. 

too. ; 

SHAFT : 
10 

SHEtO (RPH 
1 

) MOTOR height 
6 

(LB) 



2.0 

♦Oil 1 .8 


s.o 

♦018. S 

7.S 

♦01S.78 

io.u 

♦Cis ;28 


IS.O 

♦ cm. 8 

20.0 

♦03M.S8 

10.0 

♦oiM.'iq 


MO.O 

♦01M.2S 

SO.O 

♦01M.20 

100.0 
■ 12 
2.0 

■f01M;20 

1 

♦OllM.2 

1 

S.O 

♦0127.6 

7.S 

♦0126. OS 

IO.U 

♦ 012S, 1 


IS.O 

♦O12H.0 

20.0 

♦0123, S 

lo.o 

♦0122,9 


MO.O 

♦0122. M 

SO.O 

♦0322.1 

60.0 

♦ 0-J22.0 


60.0 

♦0322.0 

100,0 

♦0322.0 

9 

2. 

1 

♦ Oil M , 

6 

s. 

♦0399, S 

10. 

♦0399, 

IS. 

♦0l9 I . 


20. 

♦0390. 

10, 

♦03R8.6S 

Hi). 

♦OlRo. 


SO. 

♦0388. 

loo. 

♦ 0388, 

9 

2. 

1 

♦01209, 

M 

s. 

♦0326S. 

10. 

♦032SS.7 

IS. 

♦032S2. 

2S 

20. 

♦032S0.7 

10. 

♦032S0, 

MO. 

♦ Oi2SO. 


SO, 

♦032S0. 

100. 

♦032S0, 

q 

2. 

i 

♦01S02, 

S 

s. 

♦03M62. 

10, 

♦03990. 

IS, 

♦Ol43S. 

S 

20. 

♦03939. 

10, 

+03933. 

Mu. 

♦P1M32. 


SO. 

♦03932, 

100. 

+03932. 


DATA TABLE -17 


vAC.JAC.D 1A. vs , -/eight 2 1 17 

VACUUM Jacket weight as a function of vacuum jacket diameter fof. 

ALUnimin hCNEYCCMB, RfcF, LMSC A98I608. 


OIAMEtEf (INCHES) WEIGHj (LBS) 
IS I 1 


Is. 9 

,196 

29.0 

.l6S 

10.0 

.iss 

36.0 

.ISO 

92.0 

.360 

98.0 

,170 

6U.0 

,900 

72.0 

.936 

89.0 

,978 

96,0 

,S20 

lOE.O 

.S66 

120.0 

.618 

1 3A.0 

.660 

149.0 

.7IS 

IS6.0 

.762 
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data table -18 

P(<] - HyDkOGEN 3 ^ . 18 

EiiEHCY UERIVaTIVE (PSIA-CU. FT, /BTUJ FOR HYDROGEN 

(PHI) VS (oEliSTY) AT A given PRESSURE 
(PF.HSlrYf = r(PCT>FLUlO WItHORAwN»PF/(2F*tFM 


PRESSUkE (PSIA) S 200. 

RHO (LH/CU-FT) PHKPSIA-CUFT/BTUI 

IS 1 3 

400. 

600 . 

800 . 1000 

.ur.u97 ‘ 

2.028 

.09797 

1.921 

• 1434 

1.912 

,20 V 

2.994 

.31 1 

3.415 

.3R3 

3.703 

.SI 

3.909 

.656 

4.017 

1.133 

3.909 

2.299 

3.971 

3.or.8 

6.610 

3.502 

8.116 

S.iin? 

IS 1 

9.S93 

3 

4.305 

lo.qno 

4.466 

11,008 

,tlR2SB • 

2,168 

.I233 

2.149 

. 1605 

2.053 

.23uR 

1.399 

.476 

2.931 

.580 

3.425 

.7MJ 

3.90*1 

1.061 

4.271 

1.403 

4.522 

2.329 

S.293 

3.100 

6.EI7 

3.*<67 

7.779 

9. (IRS 
IS I 

9.616 
■ 3 

4.349 

10.484 

9.906 

11.040 

.0793 ‘ 

2, 122 

. (232 

2. (80 

.1578 

2.184 

.20^6 

2.143 

.2611 

2.033 

.3221 

. 1.945 

.MSB9 

2.C99 

.9246 

3,740 

1.3910 

4.479 

2#3f)77 

S.SI 1 

3.096 

6.876 

3.517 

7.879 

3.9630 

9.117 

4.231 

9.943 

4.459 

10.716 

IS 1 

3 





.07*13 * 

2.03S 

.0988 

2.129 

.1634 

2.193 

.2090 

2.201 

.260 

2.174 

.3024 

2,123 

.MSI7 

1.973 

.7367 

2.519 

1.1753 

3,832 

1.8767 

4.952 

3.1546 

7.010 

3.6572 

8.163 

3.9Mfa3 
IS' ( 

6.944 

3 

4.1993 

9.696 

4,421 

10,420 

.07*13 • 

1.931 

.0927 

2.040 

.1832 

2,197 

.2278 

2.213 

.2789 

2.2IS 

. 3*166 

2.175 

.*1270 

2.088 

.7493 

2.219 

1.0274 

2,919 

1 .9fti(8 

,4.943 

3.1912 

7.044 

3.7605 

8.332 

M.U|‘l7 

9.010 

4.2447 

9.691 

4.951V 

10.363 


DATA TABLE -19 . 

temp, ok n2 Vs rho f(p) . 3 s 19 

TliHPF.HAllJRE OF CITROGEN AS A FUNCTION OF DENSITY AND PRESSURE. 

T VS f!hO AT GIVEN PRESSURE 

RtF - ThF.RMO. PROPS. OF 0?. AliD M2 - PART | (N2)* STEWART, JACOBSEN. MYERS » 
DATED 7-31-72, UMV.OF IDAHO, NAS9-I2078 FINAL REPT, 


PhESSURL 


5 100. 

300. 

600. 

800. 

RHO (LR/CU- 

FT) TEMP 

(DEG-R) 




17 • 

1 3 





U. 2602V 

■ 1000. 

0.325SO 

800, 

0.37226 

700, 

U.43'|9( 

600, 

C. 52374 

500, 

0.65B90 

400. 

U. B9St6 

300. 

1 .0076 

270. 

(.21764 

230. 

1 .32O0V 

215. 

1 .41267 

205. 

1. 51513 

195, 

1 .76>i7l 

176.382 

43.65099 

(76.882 

47.025) ) 

(60. 

SU.9427U 

140, 

51.97474 

130. 



17 

1 ■ 3 





0.77626 

■|000, 

0.97)5) 

800. 

). 1 )245 

700, 

1.3031 i 

600, 

1 .57750 

500. 

2,01 333 

400. 

2.85722 

3CC. 

3.31995 

270. 

4.43380 

230. 

S.3I26U 

215. 

5.90023 

209.176 

35.37826 

209,176 

4 1 .2329b 

1.90. 

45.50434 

170. 

49.04794 

150. 

50.69242 

I4C. 

52.13136 

(30. 



IS 

1 3 
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I.S1BS4 

lono. 

I.9272S 

800. 

2.21038 

700. 

2.S<)B14 

600. 

1.I70I«> 

SOO. 

4.12812 

400. 

6.12U7<i 

300, 

7.9S007 

270. 

10.36763 

2S0, 

27.9'>726 

230. 

37.2723T 

210. 

42. I7RS0 

|90. 

46.06UIB 

170. 

R9.R0M93 

ISO. 

S2.3SR3I 

no. 

IS 

1 ■ 1 





2.03H84 

■ 1000. 

2.SSS02 

800. . 

2.93297 

700, 

■<,4S464 

6no. 

4.23447 

SOO. 

S.S8290 

400, 

V, 04166 

300. 

12.32699 

270. 

|9,3869S 

2S0, 

32.0?.? 1 1 

230. 

38.2R876 

210. 

42.72110 

no. 

46.4niOS 

170. 

49.63097 

ISO. 

S2.S0‘I66 

no. 

IS 

11 





2.S327/ 

■ 1000, ■ 

1.17489 

800. 

3.64-»l9 

700. 

4,30324 

600. 

S. 29619 

SOO. 

7.06>64 

400. 

12.07741 

300. 

17.61068 

270. 

26.0720! 

2S0, 

3i. 43604 

230. 

39.12311 

210. 

43,21232 

no. 

46.7?206 

170. 

49.8484S 

ISO. 

S2. 64429 

no. 


DATA TABLE -20 






HT.XFER.CUEF.- 

H2 

3 4 


20 


•OVF.KALL HEAT 

transfer coefficient for H2 electric powered hex 

AS A 

function of 

CiASS velocity and fluid 

INLET 

PRESSURE, 


RtF, AR-7j-7S3S, 





PHESSURt (PSIA) 

4 14.7 

100. 

SOO. 1000. 


MASVbL(UB/HK-Ili) U 

(BTU/HR-F-SQ.IN) 




1 1 1 

3 





.10 

.27 

.30 

.70 

.SO 

,96 

.ts 

1 .21 

1.00 

1.42 

I.SO 

I.7S 

2.00 

1,97 

3.00 

2.3S 

4,00 

2.73 

S.OO 

1.09 

6.00 

3.45 



1 i 1 

.10 

.35 

.30 

.78 

.SO 

I.IO 

• 7S 

I.3S 

1.00 

I.S3 

I.SO 

I.DS 

2.00 

2.09 

l.cn 

2.48 

4,00 

2.87 

S.OO 

3.2S 

6,00 

3,64 



M 1 ' 

■ 3 





.10 

.45 

.30 

.88 

.50 

1.20 

.7S 

I.4S 

1.00 

1 .65 

I.SO 

1,96 

2.00 

2.22 

3.00 

2.61 

4,00 

3,04 

S.OO 

3.42 

6. CO 

3.82 



II 1 

3 





.10 

.SO 

.30 

.99 

,sn , 

1 .30 

.7S 

I.SS 

1 .00 

1 .76 

I.SO 

2. OS 

2.00 

2.34 

3.00 

2.78 

4.00 

3.22 

S.OO 

3. 65 

6.00 

4.09 




DATA TABLE -21 

hT.XFKR.CLiCF.-na-{!2 3 H 

■OVEHALL MEAT TRANSFER COEFFICIENTS 
AS A KiNCnoM OF MASS Vp.LOClTY AND 
RtF. AR 7|-7S35 

PRESSURE (PSiA) M m.7 

MASVEL(LU/HK-IN) U ( BTU/HR-R-SQ. IN ) 


IS 

1 3 


.2 

.13 

.4 

.8 

.22 

1.0 

2.0 

.31 

4.0 

0,0 

•.S7 

12.0 

2U. 

IS 

l.l 
1 3 

2S. 


21 

FOR 02 AND N2 ELECTRIC POWERED HEX 
FLUID INLET PRESSURE. 


100. SOO. 1000. 


17 

.6 

.ns 

24 

1.4 

.27 

40 

6.0 

.49 

76 

16.0 

.93S 

31 

30. 

I.S3 
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.2 

.m 

.4 


.18 


.6 

.205 

.B 

.22S 1.0 


.245 


1.4 

.285 

2.0 

.33 



.42 


6.0 

.51 

b.O 

.S9S 12.0 


.78 


16.0 

.96 

2U. 

1 . m 

25. 


I.3S 


30. 

1.57 

IS 

1 . ■ 3 







.2 

.I7S .4 


.22 


.6 

,255 

.8 

.27 

1.0 


.30 


1.4 

.34 

2.0 

.38 

4.0 


.495 


6.0 

.60 

b.O 

.700 12.0 


.92 


16.0 

(.14 

2U. 

I.3S 

25. , 


1.615 


30. 

1.88 

IS 

I 3 







.2 

.26 

^4 


.31 


.6 

,36 . 

.8 

.39 

1.0 


.42 


1.4 

.47 

2.0 

.52 

4.0 


.67 


6.0 

.82 

b.O 

.96 

12.0 


1.255 


16.0 

1.56 

2U. 

I.63S 2S. 


2.(95 


30. 

2.555 

DATA TABLE -22 







f fU OF 

32i/3M7 ST. STEEL 2 

3 


22 



EFFtCT 

OF tempefatuke on the tensile 

STRENGTH 

OF 

321/347 

STAINLESS STEEL 

KtF. SrC.b-LUSC A98 

608 1 PAGE e,. 

1.1-8 





TLMHERATUhE (R) UlT.STRKMGTH 

(PSD 





IM 

1 2 







36.7 

■ 266500. 

S9.7 


251000. 


IS9.7 

207000. 

2SV.7 

173000 

359.7 


143000. 


459.7 

121000. 

SSV.7 

ioeooo 

659.7 


91000, 


859.7 

75000, 

I0SV.7 

70000 

1259.7 


66000. 


1459.7 

63000. 

1 6SV . 7 

500C0 

1859.7 


32000. 




DATA TABLE -23 







f'TU OF- 

22(9-t87 alum. 2 

3 


23 



tFFtCT 

OF TEnPERATOKE ON THE TENSILE 

STRENGTH 

OF 

22I9-T87 

ALUMINUM 

RFF. SF.C.b-unSC A98l608fFAGf 8, 

1.1-8 





TEMFfcRATUHE (R) UlT. STRENGTH 

(PSD 




. 

16 

1 2 







36.7 

94000 

100.0 


82400. 


150.0 

76000, 

2UU.0 

72000 

2SC.0 


68S00. 


300.0 

67800, 

3SU.0 

67000 

40C.0 


66300, 


450.0 

65000, 

^ou.n 

63800 

550.0 


62000. 


600.0 

60000. 

iiSu. 

5SOOO 

859.7 


38400. 


1059.7 

16600. 

I2S9.7 

6400 

• 






DATA TABLE -24 







ftu of 

606I-T6 ALi.'MiNuM 2 

3 


24 



bFFtCT 

OF TEMPEFATUHE ON THE TENSILE 

STRENGTH 

OF 

606 1 -T6 

ALUMINUM ALLOY 

RI.F. NIL hANOuOCK -S 






TLNpErATUhE (r) ult. strength 

(PSD 





13 

1 3 







36.7 

63840 

100.0 


5T330. 


150.0 

53340. 

20U.0 

50610 

250.0 


48384, 


300,0 

46830, 

3SU.0 

45696 

400.0 


44940, 


450.0 

43848, 

‘iou.o 

42840 

55c. 0 


41496, 


600.0 

40152, 

6SU.0 

36556 
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DATA TABLE -25 

FTU OF ltiCONEL-718 2 1 2S 

EFFhCT OF TfcflFEFATlJHF ON THE TENSILE STRENGTH OF 1NCONEL-7IB 

REF. nil. HAMOBOOK -S, 


teuferatuke (r) ult. strength (PSD 


n 

T6.7 

1 1 
■ 219600. 

lOC.O 

211660. 

ISO.O 

210290 

2uu«n 

206100c 

2S0.0 

20I2R0. 

100.0 

196200 

TSU.O 

niiMo; 

ROO.O 

189000. 

9S0.0 

I8S900 

*>ou,o 

182160. 

sso.o 

179960. 

600.0 

177100 

tSSU.O 

i7smo. 

* 




DATA TABLE -26 


FTU OF 

TI-6AL-9V 


2 1 

26 



EFFtCT 

OF tempefatuke 

ON 

THE tensile STRENGTH 

OF 

titanium 

> 

1 

< 

1 

1- 

REF. MIL MANOHCOK -S. 






teukeratuke (r) ult. 

STRENGTH (PSi) 




n 

1 1 






16. T 

28E120. 


IOC. 261600. 


ISO. 

299980 

2UU.0 

226880. 


2S0. 212800, 


100. 

200960 

l^u.n 

190720. 


90Cc 181280. 


9S0, 

171120 

<>0U.fl 

l6S280i 


SSC. IS8720. 


600. 

IS9290 

6SU.0 

iMS600; 






DATA TABLE -27 






H£A0 COEFFICIEMT VS'dS 


2 ^ 

27 



HE AO COEF, VS NS 

(SPEC, SPEED) 




HEAP COtF 






IS 

1 2 






'TO 

.66S 


80. .660 


90, 

,6SS 

I UO 

• 6S 


200, .619 


MOO, 

.619 

600 

.60 


1000. .‘>71 


2000. 

.SI8 

luoo 

,972 


soon. .900 


6000. 

,161 

7000 

.121 


60CO. .281 


9800, 

.192 

DATA TABLE -28 






adiabatic eff, vs ns 


2 1 

28 



adiabatic efficiency 

VS Ns (SPEC, SPEED) 




ADIAB. 

EFF 






20 

1 2 






70, 

,00 


80, ,01 


90, 

.06 

100, 

.08 


127. .20 


200. 

.10 

2S0, 

.17 


100. .99 


ISO, 

.SOS 

400, 

,sss 


SOO. .61S 


600, 

.69S 

700, 

.79 


800, .77 


toon. 

.81 

ISOO, 

.89S 


2000, .86 


icon, ■ 

.87S 

soon, 

.887 


10000. .891 
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DATA TABLE -29 

tFFlC. UUUT.Vs IHP. DIAM 23 29 


EFFICIENCY 

guotJEnt Vs 

impeller 

diameter 



EFF. oUOT. 






■ 21 1 

2 





.OS 

.0 

.20 

.30 

.30 

.42 

.40 

.SIS 

.SO 

.60 

.70 

,69S 

.90 

,7SS 

1.20 

.82 

1 .60 

.88 

2.00 

.918 

2.40 

.94S 

3.20 

.97S 

4.00 

,9BS 

s.o 

.988 

6.0 

,99| 

7.0 

,994 

R.n 

.997 

9.0 

,999 

10. n 

,999S 

11.0 

.9999 

12.0 

I.GOO 

DATA TABLE -30 






OASt LINE stage 

WT VS DI 

2 3 

30 



BASE LINE STAGE WEIGHT 

VS impeller diameter 



stage WT. 






• 12 1 

2 





.S6 

.40 

.70 

.4IS 

,90 

.44 

1.10 

.48 

I.SO 

.63 

2.0 

1.02 

2. SO 

i;t2 

3.S 

3.8 

S.O 

9.0 

6,00 

13.80 

7.0 

20.0 

9.0 

36.2 


DATA TABLE -31 

SATURATtP STFAtU T.VS P. 2 3 

satukatad Water vapor .saturation pressure 

TEMPfcHATUHE AS A FUNCTION OF PRESSURE. 


31 

AND TEMPERATURE TADLE GIVING 


pSAIWV (pSiA) 


TSATWV 


21 
.088SR 
.MO 
1 .0 
7.S 

30.0 

80.0 

200.0 


I 2 
M92.0 
S12.86 
^ 61.74 
639.94 
710.33 
772.03 
841.79 


(DCG.R) 


.12170 

soo.o 

,20 

SI3.I4 

.60 

S4S.2I 

.80 

SS4,18 

2.0 

S86.C8 

4.0 

612.97 

10,0 

6S3.2I 

14.696 

672,00 

so.o . 

741,0! 

60,0 

7S2,7I 

ino.o 

787,61 

ISO.O 

BI8.42 

300,0 

877.33 

400.0 

909.S9 


DATA TABLE -32 

SP.hT. OF 0-H CCnC.PROD. '3 3 32 

0/f RATIO from SP.HT, OF OXYGEN AND HYDROGEN COMBUSTION PRODUCTS AS A FUNCTION 
OF lEMPLRATURE - FOR CONSTANT PRESSURE. 


TEnP. 

OFKAt 

12 

- UEG.R 

(RATIO) CPPAR 

1 3 

4 7C0, 
(BTO/LB-R) 

ISOO. 

2S00. 

3S00, 

O.SU 

■2.3iS 

1 .00 

I.7SS 

1 .SO 

1.420 

zlou 

1 ; !93 

2. SO 

I.03S 

3.00 

0.9IS 

3;su 

o;824 

4.CC 

0.748 

S.OO 

0,637 

biou 

12 

n;ss6 

1 3 

7.00 

0.49S 

8.00 

0.442 

O.SU 

'2.420 

1 .00 

I.84S 

1 .SO 

I.70S 

2;ou 

i;270 

2.^0 

1 .098 

- 3.00- 

0,980 

3iSU 

0,892 

4.GC 

0.817 

S.OO 

0.703 

6;ou 

0,626 

7.00 

0.S6I 

8.00 

0.SI2 
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12 

1 3 . 





o.su 

■2.58S 

I.OC 

I.99M 

1.60 

1,638 

2^uu 

1 ;i98 

2.60 

•1.217 

3.00 

1.090 

i;su 


M.OC 

0.918 

6.00 

0,798 

6^0U 

o;7l7 

7,00 

0.668 

6.00 

0.608 

■ ■ 12 

1 ■ 3 





O.SU 

'2.8CS 

1.00 

2.186 

1.60 

1.796 

2iOU 

i;5M0 

2.60 

1.363 

3.00 

1.207 

3;su 

1 ; 102 

M.on 

1.023 

6.00 

0.898 

6 jou 

0.810 

7.00 

0.768 

8.00 

0.710 

DATA TABLE -33 






OXYOEN INiErNAL energy 

3 

2 

33 


OXYCjEM INiEKfJAl- energy 

AS A FUNCTION OF VApOp 

pressure along 

I isochores 

OEtJS>ITY (LB/CU FT) 

6 MO. 

60. 

60. 66. 

70. 

VAPOK PKES.S' (P5IA)INT.EMERGY(BTU/LB) 



16 

1 2 





1 • 

■ -71.676 

3. 

—66.661 

6, 

-63.982 

lu. 

-69.82M 

20. 

-6M.90I 

MO. 

-M8.963 

6U. 

-MM. 881 

60. 

-Ml ,660 

100. 

-38,920 

2Su. 

—26 • 086 

, MOO. 

-16.668 

660. 

-M.I23 

1 lOU. 

-0.169 

IMOO. 

M.6I6 

2000. 

6.M23 

2bOU. 

9.971 





IM 

1 2 





1 . 

■ -71.696 

3. 

-66.716 

6. 

-6M.068 

lu. 

-69.982 

|6. 

-66.820 

20. 

-66,189 

MU, 

-M9.M8M 

60. 

-MS. 617 

70. 

-MM, 026 

lOU, 

-M3.M69 

660. 

-M2.7I6 

1200. 

-Ml ,726 

l6ou. 

-M0.66M 

3000. 

-38. 576 



■■ m 

1 . 2 





1 . 

' -7I.69M 

3. 

-66.709 

6, 

-6M.066 

lu. 

-69,961 

16. 

-66,789 

20. 

-66,160 

MU. 

-M9.MI6 

60. 

-M6.6I8 

80. 

•M2.M62 

lOU. 

-39.901 

260. 

-33. MOO 

660. 

-32. Ml 1 

I'jOU, 

' -3I.C60 

2600. 

-28.379 



■ 17 

1 2 





1 . 

* -71.686 

3. 

-66.690 

6. 

-6M.027 

lu. 

-69.906 

16. 

-66.706 

20. 

-66.060 

MU. 

-M9.234 

60. 

-M6.26M 

80. 

-M2, 137 

lOU. 

-39.609 

260. 

-27.382 

MOO. 

-18,607 

tou. 

■-I6.26M • 

1 100. 

-13.829 

IMOO. 

-12.766 

2Q0U, 

- 1 0 .666 

2600. 

-8.679 



1 1 

1 2 





1 . 

* -71.699 

3. 

-66.722 

6, 

-6M.078 

lu. 

-60.000 

16. 

-66.8M7 

20. 

-66.222 

MU, 

-SM.360 

200. 

-6M.3M6 

1000. 

-63, Ml 1 

lijOU, 

-62.7IM 

2600. 

-61.198 



DATA TABLE - 

34 





HYPhOGEN 

internal ENErOY 

3 2 

3M 


HYDkOGEN 

internal energy as a 

function of vapor Pressure along isochores 

Dl-NijITY (LB/CU FT) 

6 ,6 

1.0 

3.0 M. 

0 M.M 

VAPUK PkE6S‘ (PSIA) INT 

ENERGY(DTU/LB) 



21 

I 2 





1 .022 

■-I30.M66 

3. 

00 -120.631 

7.00 

-106.738 

12. S 

-69, M6 

26. 

-6M.1I 

37.6 

-MO. 23 

60. 

-18.76 

62.6 

2.3M 

76. 

22,11 


Ml .32 

92.3 

M9. 

100. 

63. 

1 12.5 

69.6 

126. 

66.9 

137.6 

72.2 

150. 

78,8 

162,6 

B6. 1 

176. 

91.8 

IB7.5 

96. 1 

200, 

fOM.6 

600, 

269, M 

■ 80U. 

'I 

i 

660.662 

1000. 

768.689 






1-124 




LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A 991396 


I ?. 


1.022 

-111,786 

1*0 

. -124.041 

7,0 

-114.008 

12. •> 

-102.97 

2S. 

-as. 46 

17. S 

-70,77 

SO. 

-S7.‘t8 

62. S 

. -4S.I6 

7S. 

-11. S2 

B7.‘> 

-22. S7 

mo. 

-1 1 .BS 

M2.S 

- 1 . 

l2S. 

S-.Mt 

117, S 

19.48 

ISO. 

10,07 

iss.i 

m.i 

162, S 

16.1 

I7S. 

19.6 

167. S 

S2.9 

200, 

46. 1 

240. 

S7.0 

SOU. 

1 19.H6I 

800. 

197, 9S7 

1000. 

271, 72S 

2M 

1 ' 2 ■ 




1.022 

■-I12.672 

1.0 

-126. 38S 

7.0 

-118. 8SS 

12. S 

- 1 1 1 .66 

2S. 

-100.16 

17. S 

-91,4 

SO. 

-81,81 

62. S 

-77.12 

7S. 

-70,92 

67. S 

-6S.r 

mo, 

-S9.S8 

(I2.S 

-S4.il 

I2S. 

-M^;2i 

117,5 

•44.28 

ISO, 

-19,48 

isi .7 


162. S 

-18.1 

I7S. 

-17.9 

167. S 

-1?; 1 

200, 

-16.1 

240. 

-14.2 

SOO. 

-20.6S8 

800. 

-6.112 

moo. 

2.862 

11 

1 2 





1.0 

■-I12.784 

S.O 

-122.649 

10.0 

-IIS, 617 

2U.0 

-i06. 1S1 

lo.o 

-98.897 

40,0 

-92,691 

sy.o 

-87.149 

100. 0 

-as. 024 

200.0 

-81.497 

■•'iso.' 

-78.S72 

SOO. 

-76.946 

BOO. 

-67.869 

luou. 

-62,404 





ii 

1 2 





> 1 .0 

-112. 811 

1.0 

-126. 7S7 

S.O 

-122,774 

7,0 

-1 19.626 

10.0 

-1 IS. 819 

IS.O 

.110,611 

IS.O 

-109,612 

mc.o 

-me. 846 

200.0 

-ms, 896 

ISO, 

-102.146 

SCO. 

-99.711 

fiOO. 

-91,689 

lOOU. 

-09,091 






DATA TABLE -35 

OXYOEM 1 N(ErMAL EIIErGY *j 1 “JS 

OXYGEN INJERNaI. ENERGY AS A FUNCTION OF VAPOR PRESSURE ALONG ISOCHORES 
for low DtNSlTlES 


OENilTV (LP/CU FT) 

S .1 

.1 

1.0 20. 

40 

vapor PREiS 

(I’SIA)INT 

.ENERGY(BTU/LB) 




S 1 

2 





1.0 

-SO. 114 

S. 

21 . ms 

10. 

46,217 

14.696 

66.129 

20, 

91.279 



8 1 

2 





1.0 

-64.464 

S. 

-14.28S 

10. 

-S.199 

14.696 

I6.78S 

20. 

10.916 

10. 

46,280 

4U. 

61 .6S9 

SO. 

77.29S 



n 1 

2 





1 .0 

-70.286 

S.O 

-S8.S96 

10.0 

-49.9S1 

|4.64b 

-41.418 

20.0 

-16.927 

10.0 

-26.I2S 

4U.Q 

-16.442 

so.o 

-7.469 

60.0 

,990 


9,082 

80.0 

»6.6S8 

90.0 

24,182 

lOU.O 

29,474 





18 1 

2 





1 . 

-71 .S22 

1. 

-66.SI8 

s. 

-61,7S7 

|U. 

-S9.4I1 

16. 

-SS.96S 

20, 

-S4.IS2 

MU, 

-47.608 

60. 

-42.970 

60. 

-19,2.12 

I0U. 

-IS. 978 

2S0. 

-19.604 

400. 

-6.87S 

Sou. 

O.SSS 

700. 

16,127 

1100. 

22.614 

|40U. 

29.610 

2000. 

40,08| 

2600. 

49.817 

"16 1 

'• 2 





1 . 

-71.S76 

1. 

-66.661 

S. 

-61,983 

|U. 

-S9.32M 

20. 

-S4.90I 

40. 

-48.961 

6U. 

-44.881 

80. 

-41 .6S0 

too. 

-18,920 

24U, 

-26.006 

400. 

-I6.S68 

6S0. 

-4. 121 

I lOU. 

-0.169 

1400. 

4.SI6 

2000. 

S.421 

260U, 

9,971 






1-125 
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DATA TABLE -36 

oxrotn vakor pfessukE 2 16 


OXY6EH Vapor pressure as a FUNCT16N of internal energy along ISOCKORES 
PEijilTY .(LB/Cu FT) S HO. SO. 60, 6S. 70. 

IflT.ENEKGV(BTU/LB)VAROR PRESS (PSIAI 


16 

• . 2 





«7l ,S76 

1 . 

.66.661 

3. 

-63.98;! 

S, 

-SV.b^M 

10. 

-S4.90I 

20. 

-48,961 

40. 

-H4.88I 

60. 

-4I.6S0 

80. 

-38.920 

100, 

—26 • oB6 

2S0. 

-I6.S68 

MOO. 

-4. 123 

6S0. 

-0.169 

1100. 

4.SI6 

1400. 

S,421 

2000. 

V.971 

2600. 





17 ■ 

12 





-71 . SK6 

I. 

.66.690 

3. 

-64.027 

s , 

-S9.906 

10, 

-S6.706 

16. 

-SS.OSO 

20. 

-H9.HT4 

40, 

-4S.264 

60. 

-42.137 

60. 

-39.S09 

too. 

-27.382 

2S0. 

-I8.S07 

400, 

-1*1.264 

700. 

-13.629 

1100. 

-12.766 

1400. 

— 1 0 . 666 

2000. 

-8.S79 

2600. 



14 

12 





-7f ,S94 

1. 

-66.709 

3. 

-64 • 0S6 

S, 

-S9.961 

to. 

-So. 789 

16. 

-SS.IS3 

20. 

-49.416 

40. 

-4S.SI8 

60. 

-42.462 

80, 

-19,901 

too. 

-33.400 

2S0. 

-32.411 

6S0, 

—1 1 • oSO 

ISOO. 

-26.379 

2600. 



14 

12 





-71 ,S96 

1. 

.66.716 

3. 

-64.068 

S. 

-S9.9Bi; 

10. 

-S6.E20 

16. 

-SS. 189 

20, 

-49,464 

40. 

-4S.6I7 

60. 

-44.02S 

70. 

-.4 1,469 

100, 

-42.716 

SSO. 

-4I.72S 

1200. 

-40,664 

1800, 

-36.S7S 

3000, 



1 1 

1 ■ 2 





-71 .<599 

1. 

-66.722 

3. 

-64.078 

S, 

-60,000 

10. 

-So. 847 

16. 

-SS.222 

20. 

-SM.160 

40. 

-S4.34S 

200. 

-S3,H|| 

1000. 

-S2.7I7 

ISOO, 

-SI. 198 

2600. 



DATA TABLE 

-37 





HYOkOOEM 

vapor Pressure 

3 

2 

17 


HYDkoGEh 

VAPOR PRESSURE 

AS A function of INTERNAL EnEROY 

Along isochores 

OEMSITY 

(L.B/CI1 FT) 

S .S 

1.0 

1.0 4 

.0 4.4 

if.T ENERGY (i-jTU/LD) VAPOR 

PRESS (PSIA) 




1 2 





-1 10.4S'> 

1.022 

-120. S3I 

3,0 

-106,738 

7.0 

-69,46 

12. S 

-64.31 

2S. 

-40.23 

17. S 

-IH.76 

SO, 

2.34 

62. S 

22. 1 1 

7S. 

4i . 12 

87, S 

49. 

92.3 

S3. 

100, 

S9.*) 

1 I2.S 

6S.9 

I2S. 

72.2 

137. S 

76. b 

ISO. 

8So 1 

162. S 

91.8 

I7S. 

98. 1 

187, S 

104.6 

200. 

2S9.4 

soo. 

S8U.662 

SCO . 

768.689 

1000. 



24' 

1 2 





-111. 786 

1.022 

-124,043 

3.0 

-1 14.008 

7.0 

-I0c;.97 

12. S 

-fiS,48 

2S. 

-70.77 

37. S 

-67.48 

So. 

-4S, 16 

62. s : 

-33. S2 

7S. 

-22.47 

87. S 

-1 1 ,S8 

100. 

- 1 • 

1 I2.S 

V.4/’ 

I2S. 

19.43 

137. S 

30.07 

ISO. 

34.1 

ISS.I 

36. 1 

162. S 

39.6 

I7S. 

42.9 

167. S 

46. 1 

200. 

S7. 

240, 

1 19,461 

SCO. 

I97.9S7 

800. 

271. 72S 

1000. 
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LOCKHEED MISSILES & SPACE COMPANY 
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■ 2M 

1 Z 






■ 1.022 

-126. 38S 

3. 

-1 I8.8SS 

7.0 

-111.6 

12. •> 

-100.16 . 

2S, 

-91.4 

37. S 

-83. B3 

SO. 

-77.12 

62. S 

-70.92 

7S. 

-bS. 1 

87,9 

-S9.S8 

100. 

-S4,3I 

112. S 

-‘(9.23 

I2S, 

-94;28 

f 37.S 

-39,48 

ISO. 

-39. 

is«;7 

-38.3 

162. S 

-37.9 

ns. 

-37. 1 

I87;S 

-36,3 

200. 

-34.2 

240. 

-2U.89U 

SOO. 

-6.132 

BOO. 

2.B62 

1000. 

13 

1 2 





-1 32.7BH 

1. ■ 

-122.649 

S. 

-1 IS.6J7 

10. 

-i06. IS3 

20. 

-93.697 

30. 

-92.691 

40, 

-8/. 399 

SO. 

-69.024 

too. 

-83.497 

200. 

-70.972 

3S0, 

-76.946 

SOO. 

-67.869 

eoo. 

-62.904 

1000, 





13 

1 2 





-132.813 

1. 

-126.797 

3. 

-122.774 

s. 

-1 IV. 626 

7, 

-1 IS. 839 

to. 

-1 10.613 

IS. 

-IUV.632 

3S, 

-108.896 

too. 

-I0S.896 

200. 

-i02.396 

ISO. 

-99.731 

SOO. 

-93.689 

800. 

-BV,09 j 

iooo. 





DATA TABLE 

-38 





oy.Yutti vapcr pp,':9<:urC 

1 3 


38 


OXYOhtl VAPOn rhtSSDHE: AS 

1 A FUUCTIOH 

OF INTERNAL ENERGY ALONG 

ISOCHORES 

l-OH LOW DfcHSITlES 





OENblTY 


S .1 

.4 

1.6 20. 

40. 

HIT , KOEOG Y ( OTl'/Ln ) VAPOR 

PRESS (PSIA) 




S 

1 2 





-9U. 139 

1.0 

23.I0S 

s.o 

M6.2I7 

10. 

68. (?.9 

m.696 

93.279 

20.0 



8 

1 2 





-69,469 

l.O 

-39.26S 

S.O 

-9.199 

10, 

18,789 

m,6V6 

30.938 

20.0 

46.280 

30. 

61 .697 

40.0 

77.299 

SO.O 



13 

1 ' 2 





•■70.286 

1.0 

-98.996 

S.O 

-49.993 

10. 0 

-91.418 

14,696 

-36.927 

20.0 

-26.129 

30,0 

-16.942 

90.0 

-7.469 

SO.O 

,999 

60.0 

V.0R2 

70.0 

16.898 

80.0 

24.382 

90,0 

2V,974 

100,0 





la 

12 





-71 ,922 

1. 

-66.918 

3. 

-63.797 

s. 

-9V.9I3 

10. 

-99,969 

16. 

-S4. IS2 

20. 

-47.608 

90, 

-42.970- 

60. 

-39.2I.? 

BO. 

-39.978 

100, 

-19.604 

2S0. 

-6.87'> 

400, 

0,999 

SOC. 

16.127 

700. 

22.634 

1100. 

2V.6I0 

1400. 

40.081 

2000. 

49,817 

2600. 

16' 

1 2 





-71 .976 

1 . 

-66 . 66 1 

3. 

-63.9fl;> 

S. 

-Sv, 829 

10. 

-S4.90I 

20. 

-48.963 

40. 

-4M.8P. 1 

60. 

-41 .6S0 

60. 

-38.920 

too. 

-26.086 

290. 

-I6.S68 

400. 

-4.123 

6S0. 

-U , 1 69 

1 100. 

4.SI6 

1400.. 

9.423 

2000. 

V.97 3 

2600. 
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DATA TABLE -39 

fctiThALPY OF Loa Z 2 , “JS 


tfITMALpY OF 

saturated 

liquid oxygen , 

- REF, 

NBS TN 384 t 

7/1/71. 

PSAI (PSIA) 

H SDH L (BTD/LB) 




21 

1 , 3 





.S') 4 

■ -73.S99 

1.102 

-71.208 

S.06I 

-64.007 

lu.nns 

-S9.977 

20.200 

-SS.096 

40.434 

-49.310 

62.194 

-4S.091 

8S.0I3 

-4I.6S0 

I0S.7SS 

-39.018 

I5/.9Z6 

-37.S88 

201.664 

-29.609 

2S3.498 

-2S.8S2 

114.262 

-21,640 

342.270 

-19.427 

404. IS9 

-IS. 937 

466,11V 

-12.166 

SM .S2I 

-9,433 

SS9.968 

-6.438 

611.917 

-3.028 

6S0.OO0 

-0.2S3 

700.000 

4.414 

DATA TABLE -40 





ENT^’^LPY of lhz 

2 

0 0 

40 


PSAI 

H 

SUB L 




10 

t 3 





iC.U 

■-I IS. 02 

20.0 

-I0S.06 

30.0 

-97.32 

4C1.U 

-90.61 

SO.G 

-84. SI 

60.0 

-78.80 

70. U 

-73. 3S 

80.0 

—68 • 06 

90.0 

-62.86 

lUO.U 

-S7.7I 





DATA TABLE -41 





ENTHALPY OF 

heluk; 

3 3 


41 


enthalpy uf 

helium as 

A FUNCTION OF 

VAPOR PRESSURE ALONG 

CONSTANT 

TEfIPEHATUHfc 

. F.EF, NRS REPORT 9762»AU6. I 970 



TtMPEKATUrtr 

■(H) 

S 30. 

iOO. 

200. 

400. 600 

VAPOH PPESS 

(PSIA) EflTHAt-PY (BTU/LB) 




12 

1 2 





U.OI 

■ ‘13. S3 

1 . 

43. SI 

ID. 

43,29 

20. 

M3. 06 

30. 

42.82 

40. 

42, S9 

50. 

M2.36 

60. 

42.13 

70. 

41,90 

6U. 

III. 67 

90. 

41. 4S 

100. 

41,23 

12 

1 ■ 2 





0.01 

130.30 

1. 

110.38 

10. 

130.41 

20. 

130.44 

30. 

130.47 

40. 

130, SI 

So. 

(3C.S4 

60. 

no.ST 

70. 

130.60 

80 . 

13c. 63 

90. 

130.66 

100. 

130.69 

12 

1 ■ 2 





0.01 

■ 2S4.44 . 

1. 

2S4.4S 

ID. 

2S4.S3 

20, 

2S4.6I 

30. 

2S4.69 

40. 

2S4.76 

So, 

2S4.84 

60. 

2S4.92 

70. 

2SS.00 

8u. 

2SS.08 

90. 

2SS. 16 

100. 

2SS.24 

12 

1 2 





0.0( 

■ S02.S8 

1. 

S02.S9 

10, 

S02.68 

2o. 

S02.77 

3C. 

S02.87 

40. 

S02.96 

So. 

S03.C6 

60. 

S03. 16 

70, 

S03.2S 

80 . 

S03.3S 

9C. 

S03.44 

100. 

SC3.S4 

12 

12 





0.0) 

■ 7S0.7) 

1. 

7S0.72 

ID. 

7S0,B) 

20. 

7S0.91 

30, 

7SI.0I 

40. 

7S0, 1 1 

So. 

7S0.20 

60. 

7SI .30 

70. 

7SI.40 

6u. 

7SI .SO 

90. 

7SI.60 

100. 

7SI.69 
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DATA TABLE -42 

tNiHAl.FY (GAS) 3 3 H2 

tNTMALPY OF OXYCr.ll OAS AS A FUHCTIOM OF VAPOR PRESSURE FOR SPECIFIED 
OLnsITIES. RF.F. (xBS-TN-38m,UL'LY 1971 AND NOS OXYGEN COMPUTER PROGRAM, 


UEfjSiTY 

(lB/Cii FT) s 

.25 

.60 

1.0 1.6 

2.0 

VAPOR PREbS' (PSIA)ENTHALPY (BTU/LB) 




S 

1 2 





14.696 

36,146 

20.0 

51.865 

30.0 

77.698 

Hu.n 

103.937 

50.0 

(29.235 



6 

1 ■ 2 





14,696 

■ -I4.9SB 

20.0 

0.450 

30.0 

27.309 

40,0 

43.431 

50. 0 

54.171 

60.0 

63.633 

9 

1 2 





14.696 

■ -32.084 

20.0 

-21.990 

30.0 

-4.666 

40.0 

1 1.291 

5C.0 

26.360 

60.0 

40.453 

70,0 

4S.78j 

80. 0 

52.173 

100.0 

65.269 

9 

1 2 





14.696 

■ -41.717 

20.0 

-34.612 

30.0 

-22.653 

40, o' 

-M.S(2 

5C.0 

-1.682 

60.0 

7.943 

70.0 

)7. 183 

8C.0 

26. 116 

100.0 

41.214 

9 

1 2 





14.696 

■ -44,928 

20.0 

-38.820 

30.0 

=28.649 

40.0 

-19.513 

50.0 

-1 1 .029 

60.0 

-3,004 

70.0 

4.673 

80.0 

12.076 

100.0 

26,243 

DATA TABLE -43 





HYDkOCiF.N 

fcllTHALFY (GAS) 

3 

3 

43 


enthalpy 

OF HYDPCGEfJ OAS 

AS A function of Vapor pressure for 

SPECIFIED 

DEMbITitS. REF-KDS REPORT 

9288 AND 

9711. 



UCMbiTY 

(LB/CU FT) 5 

.05 

,20 

.50 1.0 

2.0 

VAPOR PKEbS (PSIA)EMTMALPY (BTU/LB) 



to 

) 2 





10. 0 

^3.266 

2C.0 

185,4 

30.0 

281.128 

40.0 

380.721 

50.0 

495.624 

60.0 

619.830 

70,0 

'747.701 

80.0 

880.510 

90.0 

1022.595 

lOo.O 

1 162.921 





10 

1 2 


' 



16,0 

34,000 

20. C 

45.212 

30,0 

57.007 

40.0 

92.&S2 

50.0 

ns, 055 

60. 0 

136.126 

7 0.0 

161.610 

80,0 

183.764 

90,0 

207.222 

lOo.O 

230.212 





’ 10 

12 





16.0 

-80.643 

20. 0 

-74.984 

30.0 

-43.292 

40,0 

-20,679 

50.0 

.944 

60.0 

20.952 

70 . 0 

40.356 

80.0 

59.747 

90.0 

78,699 

100. 0 

90.340 





10 

1 2 





16. (J 

■ -97. 193 

20. 

-89,093 

30. 

-74,273 

1(0,0 

-60.771 

5C. 

-48.187 

60. 

-36,542 

70,0 

-25.279 

8C, 

-14.324 

90. 

-3,629 

100.0 

6.833 





10 

1 2 





16. 

■-IC5.468 

20. 

-99.849 

30. 

-89,764 

40. 

-80.817 

50. 

-72.753 

60. 

-65,289 

70. 

-58.097 

80. 

-51,360 

90, 

-44,792 

100 , 

-36.389 
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DATA TABLE -44 

hCta factor 2 

• CUHCf.CTlOH FACTOR FOR PHlTWO IN 


LXCHANGlR, 

F'ETA is A 

function 

RtF. AK 71 

-7S35. 

. • 

P OVER rc 

BETA 


IR 1 

2 


.0 1 

.33 

. 1 

.HO 

.3S 

.MO 

.80 

.MB 

1 .0 

1 .8 

.^.2 

2.2 


H MM 


-02-N2 ELECTRIC POWERER 
CRITICAL PRESSURE RATIO, 

HEAT 

.33 .12 

.33 

.39 .fcO 

.MM 

.S2 I.M 

.S2 

,S2 2.B 

.S2 


DATA TABLE -45 


iIGilA-DEL| AP 

FOr it.xelc 

3 M 

MS 



Presents 

SIGCA-PELTAP 

AS A FUNCTION 

OF MASS VELOCITY AND 

HEAT 

ExCUAfiGER 

LEiiGTh. 





Ref. ak 

71 

-7S3S. 





MtX-l.EI,OTIl 

(IN) 

S M. 

8. 

If>. 

32. 

MASvEI.(LB/HR- 

IN) SIG-DELTAP (PSD 




IS 

1 

3 





. in 


.000032 

.20 

.00011 

.MO 

.C00M2 

.80 


,00094 

.80 

.00I6S 

1 .00 

.002S 

H.llO 


,004S 

M.OO 

.0380 

6.00 

,07S 

b.OO 


. IM 

10.00 

.200 

20.00 

.78 

3u, 


1 .6 

MO. 00 

2.8 

60.00 

6.0 

IS 

1 

■ 3 





.10 


.OOOOS2 

.20 

.00020 

.MO 

,00078 

.80 


.00I6S 

,80 

.0029S 

1.00 

,00MS 

2.00 


,CI70 

M.OO 

.081 

6.00 

, IMO 

ti , 00 


,230 

1C. CO 

.3SC 

20.00 

1.30 

c 

5 


2.9 

MO. on 

M.7 

60.00 

10.0 

IS 

1 

3 





, 10 


,000098 

.20 

.00037 

.40 

.00136 

.80 


.0030 

• 60 

.OOSO 

1.00 

• OOBO 

2.U0 

< 

• 029S 

M.OO 

. IIS 

6.00 

.2M0 

b.OO 


.Ml 

10.00 

.6M 

20,00 

2. MO 

3u.no 


S.O 

MO. 00 

8.S 

60.00 

16.00 

IS 

1 

3 





.10 


.00U16S 

.20 

.00062 

.40 

.002M 

.80 


,OOSM 

.80 

.0093 

1 .00 

.OIMO 

2.00 


.0S4G 

M.OO 

.20 

6,00 

.M3 

b.on 


.76 

10.00 

1.2 

20.00 

M.30 

3U.U0 


9,2 

MC.OO 

IM.6 

60.00 

32,0 

IS 

1 

3 





. 10 


.0003 

.20 

.00113 

.MO 

,00M3 

. 8o 


• OOVS 

.80 

.0I6S 

1 .00 

,02S0 

2.00 


,C92 

M.OO 

.3S 

6.00 

.7M 

8.1)0 


1.3 

10.00 

2.0 

20.00 

7,60 

3u.no 


IM.7 

MO. 00 

26.0 

60.00 

S7.0 


. DATA TABLE -46 

un** vALutf, FOp 112 3 M M6 

VUl.tlfiu f.>:PAr;5lVITY (BETA) for hydrogen as a function OF PRESSURE AND 
T t MPEKA • I 't'.E , 

Ht-F. - Nr-S-Til-6l7iAPRlL IS72, NAT, BUB. STANDARDS, BOULDER, COLORADO, 


Fr<F:s5iUPE 

(PSIA) 

s so.o 

100. 0 

200,0 

300.0 M0( 

TENRfJ-ATURK(DtG-E) UEIA 

(PER EEG-R) 




1 1 

1 2 





iU.O 

.0068682 

36.0 

.0087034 

M2.0 

.0120937 

4S ; MU6 

.'0ISM79M 

MS. 406 

.042S‘l79 

60.0 

.0214360 

bu.n 

.(iiMOISM 

12S,D 

.0082P.72 

200.0 

.00S0M29 

34 0. n 

.0C29M2S 

M40.0 

.0022710 

SMO.n 

.00I8M97 

7UU.0 

,001 ‘1268 
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IS 

1 2 



. 

40. n 

■ .0066720 

40.0 

.0101009 

so.o 

S2.072 

;040S22| 

S0.0Y2 

.0669217 

S4.0 

bU.O 

;0303443 

70.0 

.0201446 

80.0 

I2S.0 

.008S774 

200.0 

,OOS0846 

140.0 

4HU.0 

;C022692 

S40.0 

,0018476 

700,0 

IS 

12 




41). n 

■ .0061024 

40.0 

.0091821 

SO.O 

sa.n 

.OS9S100 

60.0 

♦621 I4SS 

62.0 

66.0 

; 0464820 

70.0 

.0116912 

90.0 

I2S.0 

.009IS77 

200.0 

.00SI64S 

140.0 

4Moin 

;0C226S2 

S40.0 

.0018411 

700.0 

iS 

1 ' 2 




40.0 

■ .P0S99O2 

40.0 

.0084411 

SO.O 

60.0 

;ci6oiso 

64.0 

.08S6922 

66.0 

70. 0 

;0c81492 

60.0 

.0282269 

90.0 

I^S.O 

,0097206 

200.0 

.00S219I 

140.0 

440.0 

;0022609 

S40.0 

.00I61E6 

700.0 

IS 

1 2 




40. Q 

■ .00S67S0 

40.0 

.0078461 

SO.O 

60.0 

;0229678 

66.0 

,0428049 

70.0 

/S.O 

;nsi40SS 

es.o 

.0271007 

9S.0 

I2S.0 

.0102442 

200,0 

.OOS107S 

140,0 

440.0 

.0C22S61 

S40.0 

.0016119 

700.0 
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.0^P28fl•^ 

.OISBSMS 

.0029ms 

,oom2So 

,0lh6197 
. I I2S2SM 
.0|S7fi47 
.00294M8 
.0014214 

.0tl76B| 
. H 74762 
,0189064 
.00294S0 
.0014177 

.0119866 

,06n0‘590 

.0186681 

.0029442 

.0014140 
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1.6 INPUT DECK SETUP 

The Math Model Program has a built-in capability to process either a single system 
analysis run or multiple system runs. The multiple system runs can be several runs 
of the same system or different systems. Average system run times will vary from 
approximately 90 seconds (UNIVAC-1108, Exec 8) for an ACPS rxm to approximately 
180 seconds for a fuel cell analysis. 

1.6.1 Single System Deck Setup 

For a single system setup the input deck setup is of the same general form as given 
in Fig. 1.5 .4-1, where the system definition card continues the phrase, ’’LAST CARD" 
beginning in Field 4. 

1.6.2 Multiple System Deck Setup 

For a multiple system deck setup several adjustments are made to the input decks. 
First, since the Data Tables are only to be read-in once, only the first data deck 
will contain the 'ADD Card calling for Data Table input. Secondly, the System 
Definition card in each input deck, except the last one, will omit the phrase, "LAST 
CARD" (Field 4). This plirase must appear in the last deck in order to provide 
proper run termination. A typical multi -run deck setup is illustrated in Fig. 1. 6.2-1, 
showing the card requirements. The illustration assumes the program and Data 
Tables are stored in files. 
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FIGURE 1.6. 2-1 MULTI-SYSTEM DATA DKJK 
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1.7 MATH MODEL PROGRAM MACHINE REQUIREMENTS 

i * ' • 

The program as it is currently configured requires in excess of 65,000 words of 
core storage for both the instruction and data banks. It is, therefore necessary, 
to either chain or overlay the program in order to avoid core overflow and truncation. 
Since the machine for which the program is intended is also a UNIVAC 1108 multi- 
processor, operating under the EXEC-8 system, the option chosen is the use of a 
mapped program segment overlay. A third choice, of course, is to break the 
large program into two or three small programs which could each process one or 
two of the cryogen system analyses. For specialized analysis which concentrated on, 
for example , the life support and fuel cell systems , it would be preferrable to use 
only those subprograms required and reduce both core loading requirements and 
program run time . 

The procedures required for developing a program segment overlay are documented 
in the UNIVAC manuals (Reference 1.7 -1), describing the COLLECTOR processor. 

The discussion given in this manual will be limited to the program segment overlay 
employed for the Math Model Program. 

f 

1.7.1 Segmented Overlay Procedure 

The construction of a seginented overlay for a program is accomplished by manipula- 
tion of the order in which relocatable elements are collected by the computer operating 
system for the production of an executable absolute element. Under the EXEC -8 operating 
system, this function is accomplished by the COLLECTOR, a system processor 
designed to provide a user with a means of gathering relocatable elements from many 
sources (programs) which may then be used in the construction of overlay segments 
in order to produce an absolute element ready for execution. Optionally, the 
COLLECTOR can be used to produce one relocatable element from a collection of 
relocatable elements. The COLLECTOR may be called explicitly by the @1AP 
executive control statement, or, implicitly as a result of the user requesting execution 
(@X!95') of a program which is not in the absolute form. Only absolute elements 
procued by the COLLECTOR can be executed. 
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The procedure for structuring the overlay segments involved the use of the following 
control statements and directives: 

(1) Setup the Entr}'^ Point Table (@PREP) 

(2) Invoke the COLLECTOR with a @4AP control statement. 

(3) Use the SEG directive to define each program segment in its 
preselected order. 

(4) Use the IN directive to call explicitly the main or subprogram assigned 
in each segment. 

(5) Use IN directives to call in BLOCK DATA elements where required in 
a segment. 

(6) Use the END directive to define the end of source language statements 
to be processed. 

The SEG directive , or control statement is used to define the relationship and contents 
of segments within a pi’ogram. The format employed is SEG, NAME 1, NAME 2 
where NAME 1 is the name of the segment and must be specified. NAME 2 gives 
the names of other segments to which the segment NAME 1 is being related. The 
first segment named in the source input is called the main segment and is not 
overlayed by other segments. 

The IN directive , or control statement , allows the user to include any , or all , 
elements from any member of files in his collection specifically in the segment named 
by the preceding SEG statement. 

The structimed collection of source statements which make up the map for the Math 
Model Overlay is given in Table 1.7. 1-1. 
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Table l.T .l-l 

MATH MODEL MAP OVERLAY 


©MAP, LAI MAP, TCIMMP 

C MAPPING DECK FOR TCIMM PROGRAM 

SEG MAIN 
IN CONTRL 
IN SPHTDA 
SEG LVLIA*,(MAIN) 

IN INTAB 
IN COMPIL 
SEG LVLIB*,LVLIA 
IN CRYCON 
SEG LVL2A*,(LVLIB) 

IN ACCRES 
IN LIQRES 
IN TANK 
IN VENT 

SEG LVI2B*, (LVLIB) 

IN APUSUBjAPUSUP 
SEG LVI2C*, (LVLIB) 

IN ECIBS 

SEG LVL2D*, ( LVLIB) 

IN FUELCL 
END 
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When the COLLECTOR precessor is invoked by means of a gyiAp • control statement 
followed by a set of source statement mapping instructions , the collector will provide , 
as output, the starting addresses of all subprograms and common blocks in the 
order defined by the SEG and IN directives. An abbreviated illustration of segment 
loading addresses is given in Table 1-2. 

Additionally, the collector presents a graphic representation of the segment MAP 
generated giving the quantity of work contained in each segment. The graphic 
representation generated for the Math Model Map is presented in Table 1.7. 1-3. 
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TABLE 1 . 7 . 1-2 

LOADING ADDBESSES FOR SEGMENTED OVERLAY 


ADDRfr.s Limits 001600 o<»«'«7i o«> 5 ooo_ 

SfGMffiT LnAO TABLf 06500f) 0^'S033 

iNGlRf f-T LnAD lABLL iibSTsa 

^Tt NG A DORI GS 011 161 

WORDS Df CrHAl IRAMK ?fl3l6 DRANK 


S* palooo 0l I 3fe3 065733 l3?600 


st r.Hi M'T ( vi iA» ■ on'36a o'?'u B5 Tip^oi TiasiT 
KflLUlws sFgMLMt main 


lVi 1R<= 61136a 0^-»60/l« 13P601 l5mo 

ADDWl Ss aS SrGMFMj UVL t a 


S(OGC^JT |Vi.?AA OT.60O5 063016 l 5 l 3 tl 15«255 

f OLun^is stgmlnt lvur 


SrOMlNT I.VI _ _ 0''»6oO'j o6?0ol_ l5 gl 1 4 

^ ni:i:ows ' sFnMi: NiT 'rvriH' 


SI G>if;Klf “'Cvi C56 o05 o6«036 “ 1 5131 1 1 53765 

V ni. LOWS r,f: r,MiN 7 t vi. t R 


vSm;ni;nt lVi ?!'>* cRSoos osaoii iDisH jSiROO 

I OLLf'-vs Sf L VI, IB 
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DBANK SrRMfMTS 0«A'^N TO SCALEf 








1. 7.1-3 


DMWH OVERLAY MAP 
WORDS DECIMAL PER DASH 


LVLlAf (S/|7) 

mm 

iyi\3*^sii\93.y ^ 

ivl?a* (ia9n 

LVL20* (3P8) 

■f 

LvL2CfJ,l32^) 

•»mm 

LVLsd* U16U 


WO R DS dec imal p er D AS.H. 


LVLBA* (? 79 a) 
LVL2B* (22b9y 

LVl?C» 7332iT 

LVLPD^ (32635 


LMSC-A991396 



LMSC-A991396 


1.8 program RESTRICTIONS 

Program restrictions for the current version of TCIMM are largely self-imposed by 
the range of the data used in cryogenic system evaluation. Array size for many of the 
program variables can be conveniently changed by adjustment of the PARAMETER 
definition statements found in each of the Procedure Definition Processors which define 
the common arrays. The array dimensions as currently defined, however, are adequate 
for current system concepts. 

1.8.1 Program Anal 3 d;ical Range 

The program cxirrently accommodates the use of four cryogen fluids; oxygen, hydrogen, 
helium, and nitrogen. 

Temperature ranges extend to 800°R for Og, Hg. and He and to well over 1000°R 
for N 2 * Pressure ranges extend to 2500 psia for O^, Hg.andNg. In this respect 
all table data ranges can be extended by simply enlarging the tables. 

The configuration table will currently accommodate one hundred components and can 
be extended by changing the appropriate PARAMETER statement in PDP-CCNFIG. 

1.8.2 Table Data Limits 

Current Table Data capacity is limited to 50 tables containing a total of 7000 words. 

The number of tables can be changed by altering the value of the NTBN in PDP-CTAB 
from 50 to the desired number of tables. The total number of table words can be 
changed by alterning the value of MXWTJD in PDP-CTABA to the value desired. If 
MXWRD is changed, then the "error message" in FORhlAT statement 6170 of sub- 
routine INTAB should also be changed. 
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1.8.3 TAPE AND ERUM ASSIGNMENTS 

Par those facilities which have limited or no mass storage capability in the 
form of FASTRAND or DISC program storage,, tape operation will be required 
for Program file and Data Table file loading only. The making of the files 
on tape will follow whatever local procediires ai’c used compatible with local 
machine requirements. The program uses no scratch or intermediate tapes or 
drums for data storage, hence, there will be no requirement for mounting 
extra tapes . 

1.8.4 Data Table Tape Preparation 

Provisions have been made in the program to produce and use a binary data 
table tape, where this is preferred over Data Table Card input, or because 
of mass storage limitations. 

A binary data table tape can be produced in the course of a normal program 
run utilizing existing coding in subroutine INTAB which is controllable 
from the input data, "Table Data Echo Control Card" (Ref. Gp(c) CARD-1, 

Sub. sec. 1 , 5 . 2 . 2 ). 

f 

The variables IPT and 0PT which occupy the first two fields of the Table 
Data Echo Control Card are utilized for the tape preparation and tape utilize 
tion functions. 

The defined values to be used in the variables are as follows: 

IF: IFT = 0 Table Data Input is from Source Cards, 

or Mass Storage. 

IFT = 1 or 2 Table Data Input is from Binary Tape ' . 

- loaded ft:om Tape Unit-15 . - 
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IPT>2 


IF: 


0FT = 0 


Table Data Input is from Binary Tape 
loaded from Tape Unit IFT. Where IFT 
specifies tape unit number (Example: 
IFP = IT) 

No binary data tape is to be made. 


0FT = 1 or 2 Binary Data Table Tape will be pro- 

duced on Tape Unit - 15. 

0IT > 2 Binary Data Table Tape will be made 

on Tape Unit 0PT. Where 0PT speci- 
fies Tape Unit Number (Example: 

0PT = l6) 

To make a binary data tape of the Data Tables, the simplest procedure is 
as follows: 


(a) Assign a blank tape to be loaded in Tape Unit 15, to be reserved. 

(b) Set IFT = 0 in Table Data Echo Control Card. 

(c) Set 0PT = 1 on Table Data Echo Control Card. 

(d) Set NFRT = 1 

NFRT2 = 1 

(e) Load data Table Cards immediately following Table Data Echo Control 
Card. 


To print Table Echo Summary 


The program will generate a binary data trap and those proceed with the 
execution of the run. 

1.8,5 Data Table Tape Utilization 

To use the binary data tape produced by the program, the following procedure 
applies : ' 
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(a) Assign the Data Table Tape to be read in on Tape Unit 15 . 

(b) Set IFT = 1 on Ibble Data Echo Control Card. 

(c) Set 0PT = 0 on Table Data Echo Control Card. 

(d) Set NPRT =1 To Print Table Echo Sutnmary 

NPRT2 = 1 J 

(e) Omit Data Table Cards from Input Deck. 

The program will now load in the Data Tables from Tape and precede to execute 
the run. 

1.8,6 Drum and Disc Utilization 

Where a facility is equipped with Drum and/or Disc file storage hardware, 
both the program and the Data Tables may be conveniently stored as files in 

mass storage. Assigning and calling in the files becomes a simple matter 

involving only a few control cards. 

Detailed procedures for program file generation as well as DATA file generation 
are adequately described in the UWIVAC-1108 manuals. 
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1.8.7 ERH)R MESSAGES 

The size and relative complexitj' of the Math Model Program is such that the user 
must have some means other than the standard computer disgnostics and error 
messages to indicate and flag run problems. 

Accordingly , several means of detecting run problems and error causing input values 
have been incorporated into the program itself. The two main techniques emploj^ed 
are out-of-range warning messages and built-in error termination. Troubleshooting 
the program is simplified by providing within the more sensitive subprograms , a 
built-in diagnostic trace technique which will output and flag intermediate values for 
the intermediate calculations not normally shown in the program output. 

Normally, if no changes have been made in the subprogram coding, an error will 
usually be the result of an input data error , either as a wrong input value or the 
omission of the value. Since the input data decks are sometimes rather large, new 
decks should be very closely checked for keypunch errors and card omissions. 

1.8. 7.1 Built-in Diagnostic Trace 

The built-in diagnostic trace fechnique consists of a set of diagnostic flag indices, a 
subprogram which verifies the flag and sets the "switch" position, and a set of 
diagnostic write statements placed in sensitive subprograms. The diagnostic flag 
index permits either single or multiple subprogram diagnosis as desired by the user. 

1.8. 7.2 The Diagnostic Flag. The diagnostic flag for any of the using subprograms 
is controlled tlu’ough the variable "MDTRC" defined in Procedure Definition Processor 
CCNTRL. Input values for MDTRC are placed on the System Definition input data card 
described in subparagraph 1.5. 2, 4. 

MDTRC may have a value of either zero or one , and is placed in specific system 
definition card positions to activate the diagnostic write statements in any of eleven 
(11) subprograms. The card columns utilized for MDTRC are as follows: 
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Card . . » 

Column MDTRC ( ) = DIAGNOSTIC TRACE SWITCH FDR CRYC0N (OFF = 0) 


(70) 

(1) = 

1 

Turn on ACCRES 

(71) 

(2) = 

1 

Turn on ACQWT 

/ 72 ) 
% $ 

(3) = 

1 

Turn on APUSUB or APUSUP 

(73) 

(4) = 

1 

Turn on CMPCAL 

(74) 

(5) = 

1 

Turn on FUELCL 

(75) 

(6) = 

1 

Turn on C0NSUM 

(76) 

(7) = 

1 

Txirn on ECLSS 

(77) 

(8) = 

1 

Turn on LIQRES 

(78) 

(9) = 

1 

Turn on TANK 

(79) 

(10) = 

1 

Turn on TSIZEI 

(80) 

(11) = 

1 

Turn on WTACC 

MDTRC(l) is Card Column 70, — MDTRC(ll) is Card Column 80 of the System 
Definition Card. 

The values for MDTRC are read in the main driver routine C0NTRL and are stored 


in C0MM0N/CCNTRL/ for later use in the executive sequencing subroutine CRYC0N. 

1.8. 7. 3 Diagnostic Control Subprogram . The flag MDTRC is tested in subroutine 
CRYC0N as each of the analytical subprograms are sequenced. If MDTRC is not 
zero then subroutine CRYC0N will turn ON the diagnostic switch for the subprogram 
being sequenced. Any other routines or functions called by this subprogram will also 
yield diagnostics if equipped to do so.. When the diagnostic switch is ON. a function 
routine called DIAG is also activated and prints as output the name of the subroutine 
being entered and states that a diagnostic trace is in progress. Each time in the sub- 
program that a diagnostic ^vrite statement is encountered, DIAG is tested and if 
found to be activated the write statement is executed. Upon leaving the subprogram 
the function DIAG again states the subprogram name and the fact that the subprogram 
has been exited. 

An illusti’ation of the diagnostic trace output is given in Fig.i;8-i: for a short trace 
used internally in the APU subprogram. The diagnostic trace was setup to be activated 
for an APU supercritical analysis, to examine the process of looking up ultimate 
strength values in Data Table 22. 
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Since the only subprograms having diagnostic write statements within subroutine 
APUSUP were subroutines FINTAB , ^CAT and the function MIPE , the table look-up 
procedure examination was straightforward. 

As noted in Fig. 1.8-1, DIAG caused the notation DIAGNOSTIC TRACE to be printed 
as subroutine FINTAB was called in. DIAG noted that FINTAB was entered and Data 
Table-22 was found and copied. FINTAB was exited and a summary of the X-array 
printed out. Function MIPE was then entered followed by a call to L0CAT which was 
entered to locate the X,Y subtable which bracketed the desired value of 500°R. The 
array subtable limits were output and L0CAT was exited. Fimction MIPE then per- 
formed a linear interpolation of the X and Y arrays to obtain an ultimate stress value 
of 115761 psi at the desired temperature of 500°R for the stainless steel oxygen 
accumulator tank material. MIPE was then exited with the required data. The sequence 
was repeated a second time for the hydrogen accumulator and since operating tempera- 
ture and material selection was identical to the first accumulator , the answer obtained 
was the same as before. In this instance, the diagnostic output was not labeled by 
variable name, however, in other subprograms the diagnostic data appears in 
variable labeled format. 

f 

Diagnostic vrite statements will be easily recognized in the various subprograms since 
they all start mth an IF statement, for example: 

IF(DIAG(O,6HFL0RAT))\\TUTE(I0T,6O2O)WD0TI, etc. 

which says, if the diagnostic switch is turned ON, write out that FL0RAT was entered 
and writeout the subroutine input variables starting with floAvrate, etc. 

1.8.8 Error Diagnostics 

In addition to the diagnostic trace for checking out program computation procedures, 
there are a number of Error Diagnostics built into the various subprograms which 
give a warning if ranges are exceeded, or if things show up but of order. For example, 
subroutine CMPCAL computers pressure drops and keeps track of the required system 
pressure as the analysis proceeds to work its way toward the supply tanlcs. If, upon 
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arriv'ing at the tank , the subprogram finds the input tank pressure lower than the 
required pressure, it will reset the tanic pressure equal to the calculated required 
pressure and print the following message: 

’’DIAGNOSTIC* TANK INPUT PRESSURE IS LESS THAN THE REQUIRED 
PRESSURE. TANK PRESSURE SET = REQUIRED PRESSURE. TANK 
INPUT PRESSURE = . REQUIRED PRESSURE = . 

Similar messages warn of the failure of data to converge, or the failure of data to 
match preset convergence ranges. 

1.8.9 Preset Error Terminations 

A number of preset error terminations are provided in the program, in order to 
prevent the generation of meaning less data and expenditure of costly nm time. 

Typical conditions causing error terminations are as follows: 

Errors in naming the system on the System Definition Card will always abort 
the run. The system name must begin with the three alpha character mnemonics 
specified in DATA NAMSYS given in subroutine ST0DTA. 

A negative temperature or pressure value will terminate the program in a 
number of subprograms. 

A temperature or pressure out of preset ranges will terminate the program 
in several of the thermodynamic property subprograms. 

1.8.10 Errors in Reading Table Data 

Subroutine INTAB is provided with a specific set of diagnostic messages in order to 
permit rapid isolation of problems in the DATA TABLE input. Usually the 
trouble occurs during table update or replacement, however, simple card juxta- 
position can also cause a lot of trouble. 

The following is a list of Table Data error messages and the table data cards to 
examine: 
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♦ERROR* 

THE NUMBER OF DIMENSIONS IS WRONG. ND = 
(See Gp(d) CARD-1). 

*ERROR* 

THE NUMBER OF POINTS IS WRONG. NP = , 

(See Gp(d) CARD-3). 

♦ERROR* 

THE NUMBER OF DATA POINTS IS UTIONG. NV = 

On/rt\ CATID-B^. 

V ~ — ^ 

♦ERROR* 

THE TABLE TYPE IS WRONG. TYPE = 
(See Gp(d) CARD-5). 

♦DIAGNOSTIC* 

THE NUMBER OF INTERPOLATION POINTS IS WRONG. 
NIP = .NIP IS SET EQUAL TO = 

(See Gp(d) CARD-5). 

♦ERROR* 

THE ABOVE TABLE NUMBER IS LESS THAN 0 AND GREATER 
THAN 50. 

(See Gp(d) CARD-1 (NT)). 

♦DIAGNOSTIC* 

THE ABOVE TABLE HAS ALREADY BEEN INPUT. THIS TABLE 
SHALL REPLACE THE PREVIOUS TABLE. (Check table 
numbers -NT.) 

*ERROR* 

THE TOTAL SIZE OF THE TABLES HAS EXCEEDED 7000. 
THE REQUIRED SIZE IS . RUN TERMINATED. 


Any of the foregoing messages requires action by the user to correct the Table 
Data Deck or File. 
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1.9 SUBROUTINE DESCRIPTIONS 

This subsection of the manual contains descriptions of the major subroutines employed 
in Program TCIMM, The program currently contains one hundred and twenty-six (126) 
subroutines and function subprograms in addition to thirty (30) FORTRAN Procedure 
Definition F*rocessors (PDP's). Of the one hundred and twenty-six subprograms, sixty- 
eight are required for computing fluid thermod 5 mamics properties for Oxygen, Hydrogen, 
Helium and Nitrogen in either the liquid or gaseous states over the range of temperature 
and pressure covered by the cryogen systems considered. These five, only the more 
important major subprogram and a selection of the supporting subprograms have been 
included in this manual. The descriptions are arranged alphabetically by subroutine or 
fimction name. 

1.9.1 Breakdown of Subprogram Description 
SUBPROGRAM DESCRIPTION 

Each subprogram is described and defined using the following format; 

Description 

Description briefly describes the subprogram, 

MATHEMATICAL MODEL FOR SUBPROGRAM , 

Indicates whether a math model is supplied for the subprogram. 

j 

CALLING SEQUENCE 

Calling Sequence will contain a description of the manner in which the subprogram is 
called, its calling arguments and pertinent comments regarding data transfer. 
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SIGNIFICANT VARIABLES 

Significant Variables will contain the following elements: 

Name Type I/O Dimension Description 

Name is the name of the significant variable in the subprogram. 

Type indicates the type of the variable; I - integer, R - real, or L - logical. 

I/O indicates if the variable is input (I) to the routine through the calling sequence, 
output (O) from this routine through the calling sequence, or I/O if both; (C) indicates 
that the variable is computed, and (D) indicates that the variable is derived from a data 
statement. 

SUBPROGRAMS REFERENCED IN THIS SUBPROGRAM 

Name Type Reference 

Name is the name of the subprogram 

Type includes the elements S for subroutine, and F for function. 

Reference is the page number where the referenced subprogram description can be 
found. 

SUBPROGRAMS REFERENCING THIS SUBPROGRAM 

Name Type Reference 

The elements of Subprograms Referencing this Subprogram will be categorized as 
described under Subprograms Referenced in this Subprogram, 

LISTING REFERENCE PAGE 

The page number of the Appendix-B Listing where the subprogram may be found. 

FLOW CHART 

Flow Chart references the figure number of the applicable flow chart. Appendix A 
illustrates and explains the flow chart symbols. 
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The subprogram descriptions follow. 
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FUNCTI0N AFUNC 

For a description of AFUNC see the writeup for "TKGE0M." Page B-299 
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SUBROUTINE APUFL0 
DESCRIPTION 

The subroutine provides the starting point for APU subcritical and supercritical system 
analysis. The computation of pertinent APU parameters common to both subcritical 
and super-critical systems is accomplished including the following: 

(a) % APU Power - Each Duty Cycle Point 

(b) Propellant Temperature at APU Gas Generator Inlet 

(c) Coefficients for Reference Propellant Flow Rate 

(d) Reference Propellant Flow Rate (Ibs/min) 

(e) Propellant Flow Rate for Each Time hiterval and Total Duty Cycle 

(f) APU Exhaust Temperature during Each Time Interval 

(g) Specific Heat of Combustion Products through Duty Cycle Intervals. 

Input data to APUFL0 is read-in by Subroutine C0MPIL and stored in the Procedure 
Definition Processors, CAPU and CDCYCL, under labeled common statements 
/CIAPU/ , /CVAPU/ . Output data from APUFL0 is stored in the following labeled 
common statements; /CIA PU/, /CVAPU/ and /CENG/, Selected parametric values 
are output with appropriate titles in the analysis printout. 

APUFL0 Mathematical Model 


The equations, mathematical procedures, and necessary tables and constants required 
are presented in Appendix C. 

CALLING SEQUENCE 


APUFL0 is initiated by a simple call from Subroutine CRYC0N with no calling variables. 
Data transfer to APUFL0 is accomplished through INCLUDE statements as shown in the 
subroutine listing. Upon completion of its computations APUFL0 returns sequential 
program control to subroutine CRYC0N. 

SIGNIFICANT VARIABLES 


Significant variables processed in APUFL0 are as follows: 
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NAME 

TYPE . 

1/0 

DIMENSION 

DESCRIPTION 

NAPU 

I 

I 

1 

Number of APU's 

HPR 

R 

I 

1 

Rated HP of APU 

T0THPR 

R 

0 

1 

HPR*NAPU 



/A 

€\f\ 

n7T,TT\ J ^ A 


±\ 

yj 


'/(ixxx' x-poix&auu v./jr uxc 

TIT 

R 

I 

1 

Turbine Inlet Temp 

TPF 

R 

0 

1 

Prop Temp into APU-G. G. 

FMR 

R 

I 

1 

Fuel Mixture Ratio — APU 

PGG 

R 

I 

1 

Gas Gen. Op. Pressure 

PAMB 

R 

I 

30 

Ambient Pressure 

WD 

R 

0 

20 

Total (02+H2) Flow Each Cycle 

TIPWT 

R 

0 

1 

Total (02+H2) for APU Turbine 

WDOTJ 

R 

0 

20, 2 

Flow Rate — Each Fluid (Ib/sec) 

WDOTI 

R 

0 

20, 2 

Max. Flow Rate - Each Fluid (Ib/sec) 

WDRH 

R 

0 

20 

Nom. Flow Rate - H2 (Ib/min) 

WDR0 

R 

0 

20 

Nom. Flow Rate - 02 (Ibs/min) 

WDT 

R 

0 

20 

Total Propellant Including Pressure 

TE 

R 

0 

20 

Turbine Exhaust Temperature 

D 

R 

0 

20 

Heat in Turbine Exhaust 

HP 

R 

I 

30 

H.P. Required each Interval 

SUBPROGRAMS REFERENCED IN APUFL0 


NAME 

TYPE 

PURPOSE 

REFERENCE 

FINTAB 

S 

Table Lockup 

Page B-747 

MIPE 

F 

Table Data Extraction 

Page B-221 

CSUBPI 

S 

Gael. 

Cp. for Exhaust Products Page B-91 

0PAPUF 

S 

Output Specific Values to Printer Page B-234 

CRYC0N 

S 

Sequential Control of Analysis Page B-85 

LISTING REFERENCE PAGE 



The APUFL0 listing will be found in Appendix B, 

Page 5 


FLOW CHART 

A flow chart for APUFL0 is presented In Figure 1. 9-1. 
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Fig. 1. 
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SUBROUTIME AFUSUB 
DESCRIFTIOM ; 

The subroutine contains the equations and computational techniques required 
to perform an AHJ sub-critical system analysis. The subroutine accomplishes 

+1V10 r»nTnTTiThp+.^ nn ■no>*‘h‘T r»o*n+. + *? /^ol enre+.om *r*^rrM 4 *K*o/^ -PA>* 

- — — XT'-’— — — — ... 

the analysis and presents the calculated values in formatted output. The follow- 
ing are the principal computations contained in the subroutine. 

(a) Sizes the heat exchangers between the accumulators and the APU gas generator. 

(b) Establishes temperatures of exhaust gases from H2 and 02 conditioning gas 
generators . 

(c) Sizes the H2 and 02 heat exchangers between the pumps and accumulators. 

(d) Computes the total weight of 02 and H2 needed to operate the conditioning gas 
generators. 

(e) Cumputes the volume of the 02 and H2 storage tanks. 

(f) Computes the Weight of the 02 and H2 storage tank. 

(g) Computes the weight of the 02 and H2 accumulator residual fluids. 

System component weights and pressure drops for the max-flow conditions are calculated 
separately by subroutine CMPCAL. 

Input data to APUSUB has previously been read- in by subroutine C0MPIL. This data, 
along with the values generated by subroutines APUFL0 and TT^RAT, are stored in 
labeled C0MM0N assigned storage defined by a set of Procedure Definition Processor 
elements. T?he labeled commons used for data transfer are: 

C0MM0N / CACCUM/ 

C0MT^N / CIAPU/ 

C0Mt^N / CVAHJ/ 

C0M]y^R / CDCYCL/ 

C0MM0N / CENG/ 

C0M^N / DPUMP/ 

C0MM0N / CTANK/ 
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APUSUB MATHEMATICAL MODEL 

The equations, mathematical proced\ires, necessary tables, and constants required 
are presented in Appendix C. 

CALLING SEQUENCE 

APUSUB is initiated by a simple call from subroutine CRYCON with no calling 
variables. Data transfer to APUSUB is accomplished through INCLUDE statements as 
shown in the subroutine listing. Upon completion of the APUSUB computations, se- 
quential control is returned to subroutine CRYCON. 

SIGNIFICANT VARIABLES 

Significant variables processed in APUSUB are as follows; 


NAME 

TYPE 

ll± 

DIMENSION 

Q4HD0T 

R 

0 

20 

QL0Dij-T 

R 

0 

20 

WDG 

R 

0 

20 

WDJ 

R 

0 

20 

TGGCH 

R 

0 

1 

TGGC0 

R 

0 

1 

Q5HD0T 

R 

0 

20 

Q70D14-T 

R 

0 

20 

WGGH 

R 

0 

20 

WGG0 

R 

0 

20 

WTGGH 

R 

0 

1 

WTGG0 

R 

0 

1 

VST0 

R 

0 

1 

VSTH 

R 

0 

1 

AREAT0 

R 

0 

1 

AREATH 

R 

0 

1 

WPT0T 

R 

0 

2 


DESCRIPTION 

H2-HEX QD0T for APU-G.G. Feed 

02 -HEX QDOT for APU-G.G. Feed 

Hot Gas Flowrate for H2-HEX-APU 

Hot Gas Flowrate for 02-HEX-APU 

G.G. Exhaust Temp for H2-Cond. HEX 

G.G. Exhaust Temp for 02-Cond. HEX 

H2-HEX QD0T for H2 Conditioning 

02 -HEX QD0T for 02 Conditioning 

Total H2 Flowrate fcr Conditioning Fluids 

Total 02 Flowrate for Conditioning Fluids 

Total H2 Wgt For Conditioning Fluids 

Total 02 Wgt for Conditioning Fluids 

Volume of 02 Storage Tank 

Volume of H2 Storage Tank 

Surface Area 02 Storage Tank 

Surface Area H2 Storage Tank 

Total Fluid Wgt by Species 
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NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

WFTT0 

R 

0 

1 

Total 02 in Storage Tank 

WPTTH 

R 

0 

1 

Total H2 in Storage Tank 

WSRH 

R 

0 

1 

Wgt of Residual H2 in Tank 

T.TGTJ/^ 

p 

(k 

T 

T»Tr»+ T?<ae* -t MO -C A T 

WRSAH 

R 

y 

0 

1 

Wgt Residual H2 in Accumulator 

WRSA0 

R 

0 

1 

Wgt. Residual 02 in Accumulator 

TAH 

R 

I 

1 

H2 Accumulator Temp 

TA0 

R 

I 

1 

02 Accumulator Temp 

TSTH 

R 

I 

1 

Temp of Stored H2 

TST0 

R 

I 

1 

Temp at Stored 02 

PSTH 

R 

I 

1 

Pressure of Stored H2 

PST0. 

R 

I 

1 

Pressure of Stored 02 

PGG 

R 

I 

1 

Gas Generator Pressiore - APU 

TPF 

R 

I 

1, 

Prop Temp at Gas. Gen, Inlet - APU 

D 

R 

I 

20 

Heat in Turbine Exhaust 

MRGGCH 

R 

I 

1 

H2 Conditioning Gas Gen. Mix. Ratio 

MRGGC0 

R 

I 

1 

02 Conditioning Gas Gen. Mix. Ratio 

WDRH 

R 

I 

20 

H2 Nominal Flowrate 

WDR0 

R 

I 

20 

02 Nominal Flowrate 

PPDCH 

R 

I 

2 

Pump Discharge Pressure 

TAISUM 

R 

I 

1 

Total Non-Operating Time 


SUBPROGRAMS REFERENCED IN APUSUB 


NAME 

TYPE 

PURPOSE 

REFERENCE 

CSUBP 

S 

Calc. Cp for Fluid 

Page 

B-88 

HYENTH 

F 

Calc H2 Enthalpy- 

Page 

B-193 

0XENTH 

F 

Calc 02 Enthalpy 

Page 

B-238 

CSUBH 

S 

Calc Cp Exhaust Products 

Page 

B-91 

RH0LIQ 

S 

Calc. Liquid Flviid Densities 

Page 

B-262 

GSDNST 

S 

Calc Gaseous Fluid Densitieis 

Page 

B-219 
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TC0ND 

S 

Calc Thermal Conductivity- 
Insulation 

Page b-290 

ZFIND 

S 

Calc Fluid Compressibility 

Page B-335 

ZGET 

S 

Calc Fluid Compressibility 

Page B-336 

0APUSB 

S 

Output Formatted Data to 
Printer (APUSUB) 

Page B-226 

SUBPROGRAMS 

REFERENCING APUSUB 


NAME 

TYPE 

PURPOSE 

REFERENCE 

CRYC0N 

S 

Sequential Control Of Analysis 

Page B-85 


LISTING REFERENCE PAGE 


The APUSUB listing will be found in Appendix B, Page 8 


FLOW CHART 

A flow chart for APUSUB is presented in Figure 1.9-2. 
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SUBROUTINE AHJSUP 
DESCRIPZEON 

This subroutine contains the necessary equations and computational procedures required 
to accomplish an APU super-critical system analysis. The subroutine follows proce- 
dures setup in a logical math model sequence to permit computation of the pertinent 
super-critical system parameters required for this analysis. The calculated values 
are presented in formatted print outjjut for the analytical considerations. The follow- 
ing are the principle computations presented in the subroutine: 

(a) Sizes Heat Exchangers located between fluid gas accumulators and APU gas 
generator. 

(b) Determines initial fluid tank temperatures. 

(c) Computes percent usable fluids withdrawn from tanks for all duty cycle intervals. 

(d) Computes fluid densities as function of ^ withdrawn for all duty cycle intervals. 

(e) Computes fluid temperatues in tanks for all duty cycle intervals. 

(f) Computes specific heat input (THETA) of fluids in tanks for all duty cycle "inter- 
vals . 

(g) Computes required flow rate of exhaust gases and sizes heat exchangers located 
between the fluid tanks and accumulators. 

(h) Computes energy derivative (PHl) for fluids in tanks as for all duty cycle 
Intervals . 

(i) Tests adequacy of APU turbine exhaust products for conditioning of fluids: 

(1) If adequate - subprogram proceeds to (j). 

(2) If inadequate - subprogram computes supplemental heat required and readjusts 
all fluid flows to compensate for additional fluids required to run supple- 
mental gas generator for extra energy requirements^ Subprogram computes 
corrected total 02 and H2 flowrates to the accumulators, and computes the 
total Enthalpy increment supplied by the supplementary gas generator. 

(3) If subprogram cannot provide sufficient energy from a supplementary gas 
generator to miakeup for the deficiency in APU exhaust heat it will auto- 
matically recycle the program and reset the AHJ fuel mixture ratio as 
follows: FMR = li® + 0.1 
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(j) Computes the weight at the fluid tank heater circulating compressor (punrp) 
and the maximum fluid flowrate the compressor must handle. 

(k) Computes the fluid tank venting requirements and quantity of fluids vented. 

(l) Computes volume, surface area, diameter and weight of fluid tanks. 

(m) Computes weight of fluid residuals in tank at end of mission. 

(n) Computes weight of fluid accumulators and weight of fluid residuals in accumu 
lators . 

(o) Sums total fluid requirement for mission. 

(p) Presents pertinent data for analysis in formatted output. 

(q) Computes weight and pertinent characteristics of all heat exchangers and 
heat sources in the system and presents data in formatted output. 

(r) Returns sequential control to subroutine CRYC0N, which calls subroutine 
CMPCAL to compute system configuration component weights and pressure drop 
data . 

Input data for APUSUP has previously been read in by subroutine C0MPIL. This 
data along with information generated by subroute APUFL0 are stored for use in 
labeled common storage areas defined by a set of Procedure Definition Processor 
elements. The labeled commons used for data transfer by APUSUP are: 

C0MM0N/CACCUM/ 

C0MM0N/CIAPU/ 

C0MM0N/CVAPU/ 

C0MM0N/CDCYCL/ 

C0MM0N/CIFUEL/ 

C0MM0N/CUFUEL/ 

C0MM0N/CHEX/ 

C0MM0N/CMATRL/ 

C0MM0N/CONST/ 

C0MM0N/CPUMP/ 

C0MM0N/CTANK/ 

" C0MM0N/TABL0K/ - - ^ ^ - 

APUSUP MATHEMATICAL MODEL 

The equations, mathematical procedures, necessary tables and constants required 
for the APU super-critical analysis are presented in Appendix C. 
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CALLING SEQUENCE 

APUSUP is called from subroutine CRYC0N with no calling variables. Data transfer 
to APUSUP is accomplished through INCLUDE statements as shown in the rubroutine 
listing. Upon completion of APUSUP computations, sequential control is returned 
to subroutine CRYC0N. 


SIGNIFICANT VARIABLES 

Significant variables processed in APUSUP are as follows: 


NAME 

TYPE 

111 

DIMENSION 

QIHD0T 

R 

0 

20 

WDA 

R 

0 

20 

Q10D0T 

R 

0 

20 

WDD 

R 

0 

20 

TEMP02 

R 

0 

1 

TE1MPH2 

R 

0 

1 

PCH2WD 

R 

0 

20 

PC02WD 

R 

0 

20 

RH0C02 

R 

0 

20 

RH0CH2 

R 

0 

20 

TTH 

R 

0 

20 

TT0 

R 

0 

20 

DQ0DWH 

R 

0 

20 

DQ0DW0 

R 

0 

20 

Q20D0T 

R 

0 

20 

WDB 

R 

0 

20 

Q2HD0T 

R 

0 

20 

WDE 

R 

0 

20 

Q3HD0T 

R 

0 

20 

WDC 

R 

0 

20 

Q30D0T 

R 

0 

20 

WDF 

R 

0 

20 

PHI02 

R 

0 • 

20 

PHIH2 

R 

0 

20 

WSUM 

R 

0 

20 


DESCRIPTION 

H2-Hex QD0T for APU-Gas Gen. Feed 

Hot Gas Flow R te in H2 HEX for APU-GG 

02-HEX QD0T for APU - Gas Gen. Feed 

Hot Gas Flow Rate in 02-HEX for APU-GG 

Initial Temp. In 02-Tank 

Initial Temp. In H2-Tank 

Percent H2 withdrawn Each Duty Cycle 

Percent 02 Withdrawn Each Duty Cycle 

02 Density f(^ WD, Press) Each Duty Cycle 

H2 Density WD, Press) Each Duty Cycle 

H2 Tank Temp f, WD, Pres) Each Duty Cycle 

02 Tank Temp f WD, Pres) Each Duty Cycle 

Spec Heat Input - H2 as f (DENS, Pres.) 

Spec Heat Input - 02 as f (DENS, Temp) 
H2-HEX QD0T for H2 conditioning 
H2 Conditioning Hot Gas Flow Rate 
02-HEX Qd0T for 02 Tank Conditioning 
02 -Conditioning Hot Gas Flowrate 
H2-HEX QD0T for H2 Tank Conditioning 
H2-Tank Conditioning Hot Gas Flow Rate 
02-HEX QD0T for 02 Tank Conditioning 
02 Tank Conditioning Hot Gas Flowrate 
Energy Derivative for Stored 02 
Energy Derivative for Stored H2 
Summed Hot Gas Flowrates - Each Duty Cycle 
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NAME 

TYPE 

Vo 

DIMENSION 

DESCRIPTION - 

DWDB 

R 

0 

20 

Change in WDB Required to Balance Hot Gas 
Available 

WGHC 

R 

0 

20 

Corr. H2 Flowrate Accounting for Suppl. 
Gas Gen. 

WG0C 

R 

0 

20 

Corr 02 Flowrate accounting for Suppl. 

n.Qc rton . 

WD 

R 

"0 

20 

Total Fluid (02 + H2) flowrate each Duty- 
Cycle 

WGH 

R 

0 

20 

Reference H2 Flowrate to Suppl. Gas. Gen. 

WDBC 

R 

0 

20 

Corr. Hot Gas Flowrate for H2 Conditioning 

WBCC 

R 

0 

20 

Corr. Hot Gas Flowrate for H2 Tank Cond. 

WDEC 

R 

0 

20 

Corr. Hot Gas Flow Rate for 02 Conditioning 

WBFC 

R 

0 

20 

Corr. Hot Gas Flowrate for 02 Tank Cond. 

WT0 

R 

0 

20 

Corr. Total 02 Flow to Accumulator 
Each Duty Cycle 

WTH 

R 

0 

20 

Corr. Total H2 Flow to Accumulator 
Each Duty Cycle 

DELS 

R 

0 

20 

Enthalpy Increment Supplied by Suppl. Gas 
Gen. 

Q2HDTC 

R 

0 

20 

Corr. QD0T in H2-HEX for H2 Conditioning 

Q20DTC 

R 

0 

20 

Corr. QD0T in H2-HEX for 02 Conditioning 

Q3HDTC 

R 

0 

20 

Corr. QD0T in H2-Tank HEX for Tank Cond. 

Q30DTC 

R 

0 

20 

Corr. QD0T in 02 -Tank HEX for Tank Cond. 

TSIW 

R 

0 

20 

Suppl HEX Fluid Inlet Temperature 

FMR 

R 

I 

1 

APU Fuel Mixt-ure Ratio 

LREPT 

I 

0 

1 

Subprogram Recycling Index 

DQWMX0 

R 

0 

1 

02 Max. Spec. Heat Input Value 

DQWMXH 

R 

0 


H2 Max. Spec. Heat Input Value 

W0MAX 

R 

0 

1 

02 Max. Flowrate to Accumulator 

WHMAX 

R 

0 

1 

H2 Max. Flowrate to Accumulator 

QMXTK0 

R 

0 

1 

Heat (BTU's) into 02 Tank at Max 02 Flow 
Rate 

QMXFKH 

R 

0 

- 1 

- Heat (BTU's) into H2 Tank at Max B2 flow 
Rate 

RH0HF 

R 

0 

1 

Final H2 Density in H2 Tank 

RH00F 

R 

0 

1 

Final 02 Density in 02 Tank 

WDTCP0 

R 

0 

1 

02 Tank Circulating Compressor Flowra-te Reqd 
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NAME 

TYPE 

I/O 

DIMENSION 

WDTCPH 

R 

0 

1 

WCIRCP 

R 

0 

2 

WTGH 

R 

0 

1 

WTG0 

R 

0 

1 

VTH 

R 

0 

1 

VTH 

R 

0 

1 

VT0 

R 

0 

1 

ATH 

R 

0 

1 

AT0 

R 

0 

1 

WV1H0 

R 

0 

1 

WVIHH 

R 

0 

1 

WVH 

R 

0 

1 

SMDIAM 

R 

0 

2 

WGTHT 

R 

0 

1 

WGT0T 

R 

0 

1 

WRH 

R 

0 

1 

WR0 

R 

0 

1 

WAH 

R 

0 

1 

WA0 

R 

0 

1 

WRAH 

R 

0 

1 

WPA0 

R 

0 

1 

WPT0T 

R 

0 

2 

WHT0T 

R 

0 

1 

W0T0T 

R 

0 

1 

WHXT0T 

R 

0 

10,2 

HXCODE 

R 

I 

10,2 

WD0MAX 

R 

0 

1 

WDHMAX 

R 

0 

1 

TE 

R 

0 

20 

TD 

R 

I 

1 

PGG 

R 

I 

1 

TSINMN 

R 

0 

1 

APRES 

R 

I 

2 

WTHMAX 

R 

0 

1 

WT0MAX 

R 

0 

1 


DESCRIPTION 

H2 Tank Circulating Compressor Flowrate Rei 

Wgt of H2 or 02 Circxilating Compressor 

Wgt H2 Reqd for Suppl Gas Generator 

Wgt 02 Reqd for Suppl Gas Generator 

Wgt 02 Reqd for Suppl Gas Generator 

Volume of H2 Tank 

Volume of Q2 Tank 

Surface Area of H2 Tank 

Surface Area of 02 Tank 

Wgt Vented H2 to Cool 02 Tank 

Wgt Vented H2 to Cool H2 Tank 

Weight of Vented H2 

Diameter of 02 or H2 Storage Tank 

Wei^t of H2 Storage Tank 

Weight of 02 Storage Tank 

Wgt Residual H2 in H2 Stoi^ e Tank 

Wgt Residual 02 in 02 Storage Tank 

Wgt of H2 Accumulator 

Wgt of 02 Accumulator 

Wgt of H2 Ac emulator Residuals 

Wgt of 02 Accumulator Residuals 

Total Weight of'H2 or 02 Fluid 

Total H2 Fluid Weight 

Total 02 Fluid Weight 

Heat Exchanger Weight 

Heat Exchanger I.D. Code 

02 Max. Flowrate to AJU 

H2 Max. Flowrate to APU 

Temp of APU Exhaiast Gases 

Temp of Hex Hot Gas Discharge 

Pressure out of APU Gas Generator 

Minimum Inlet Temp to Suppl Gas Gen. 

Accumulator Operating Pressure 

Max. Corr. H2 Flow through H2 Cond. HEX 

Max. Corr. 02 Flow through 02 Cond. HEX 
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NAME 

TYPE 

l/O DIMENSION 

PC0 

R 

l' 1 

PCH 

R 

I 1 

HXCDLP 

R 

I 10,2 

DELPCP 

R 

I 1 

SUBPROGRAMS 

REFERENCED IN APUSUP 

NAME 

TYPE 

PURPOSE 

HYENTH 

F 

Calc . H2 Enthalpy 

0XENTH 

F 

Calc. 02 Enthaly 

FINTAB 

S 

Table Lookup 


DESCRIPTION 

Pressure of Conditioned 02 
Pressure of. Conditioned H2 
Cold Fluid Pressure Drop in HEX 
Circulating Compressor Pressure Rise 

REFERENCE 
Page B-193 
Page B-238 
Page B-147 
Page B-221 
Page B-93 
Page B-335 
Page B-336 
Page B-249 
Page B-249 
Page B-91 
Page B-88 
l^stem Routine 
Page B-108 
Page B-140 
System Routine 
Page B-290 

System Routine 
Page B-226 
Page B-177 
Page B-172 

System Routine 
Page B-226 


MIPE 

F 

Table D^ta Extraction 

CSUBV 

F 

Calc- Cy For Fluid 

ZFIND 

S 

Calc. Compressibility at Fluid 

ZGET 

F 

Calc. Compresibility at Fluid 

PHTH0N 

S 

Calc. THETA For Fluid 

PHTH0N 

S 

Cal. PHI for Fluid 

CSUBPl 

s 

Calc. Cp for Exhaust Products 

CSUBP 

s 

Calc. Cp for Fluid 

AMAXI 

F 

Finds Max. Value of 2 Values 

DENS0N 

s 

Calc. Density of 02 or N2 

FINDR 

F 

Finds Fluid Gas Constant 

CBRT 

F 

Calc. Cube Root of Value 

TC0ND 

s 

Calc. Thermal Conductivity ftir 
Insulation 

SORT 

F 

Calc. Square Root of Value 

0APUSP 

S 

Output S.R. for APUSUP 

HEATEX 

S 

Calc. HEX Weight and Characteristics 

GASGEN 

s 

Calc. Gas Gen Wei^t and Characteris- 
tics 

AMINI 

F 

Find Min. Value of 2 values 

0PTHEX 

s ^ 

Out put S.R. for HEX and Gas. Gen. 
Data 
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SUBPROGRAI^ REFERENCING AHJSUP 
NAME TYPE PURPOSE 

CRYC0N S Sequential Control of Analysis 

LISTING REFERENCE PAGE 

The APUSUP listing will be found in Appendix Page 12. 
FLOW CHART 

A flow chart for APUSUP is presented in Figure 1.9-3. 


RKb'ERENCE 
Page B-85 
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FUNCTI0N ARACYL 


For a description of ARACYL see the writeup for "G0MTRY." Page B-175 


FUNCTION AREAFR 

For a description of AREAFR see the writeup for "G0MTRY. " Page B-175 


FUNCTION ARSPHR 

For a description of ARSPHR see the writeup for "G0MTRY. " Page B-175 
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FUNCTION ROUTINE CFTW 
DESCRIPTION 


The routine contains the equation for computation of weights for control devices 
such as pressure regulators, flow valves, check valves and pressxrre relief valves. 
The equations employed were developed from empirical data files assembled by 
AiResearch Mfg Company (Reference 1.9-1) covering a wide range of sizes and 
types of fluid handling devices. The data were reduced to a set of general curves 
from which the reference equations were developed. The control devices were 
categorized by the designations light, medium, heavy and extra heavy, based 
primarily upon the pressure range in which the devices are designed to operate. 

The derived equations are based upon the weight being a function of the diameter 

3 

cubed (WT = f(D ) ) for devices larger than 1 in. diameter , and the weight being 
a fvmction of the diameter to the first power (WT = f(D) ) for devices having a 
flow diameter of 1 in. and smaller. The general form of the equations are 
respectively: 

WT = K (D^) + C 


and 


WT = K (D) + C 

where K and C are constants based upon actual device weights . 

The constants developed from the Airesearch data and the categories to which they 
apply are as follows: 
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A. Flow Control Devices Larger Than One Inch; 


i 

j 

i Category 

Pressime Range | 

Pj < 400 psia 

Pj > 1000 psia* 

>^1 

^1 


•"a ! 

1 Light 

0.040 

1.75 

0.057 

[ 

3.95 i 

1 

! Medium 

0.057 

3.95 

0.073 

5.73 1 

I 

i Heavy 

0.073 

5.73 

0.090 

8.91 

Extra Heavy 

i 

1 

0.090 

8.91 

0.107 

12.35 


♦(Diameters less than 3,5 inches.) 


B. Flow Control Devices Smaller Than One Inch ; 



Pressure Range 

Category 

Pi < 1000 psia 

Pj^ > 1000 psia 

*^3 

^3 

^4 

^4 

Light 

1.0 

0.8 

2.5 

1.5 

Medium 

2.5 

1.5 

3.3 

2.5 

Heavy 

3.3 

2.5 

5.5 

3.5 

Extra Heavy 

■ 

5.5 

i 

3.5 

7.7 



The weight categories are defined to include the follomng flow control devices: 


Category 


Includes 


Light 

Medium 


Heavy 


Extra Heavy 


Check valves, quick disconnects of poppet and 
flapper types, and orifice assemblies. 

Butterfly and poppet t 3 qje , modulation, shutoff, 
fill , vent and isolation valves . 

Butterfly and poppet type, pressure regulators, flow 
controls, pressure relief and mixer values. 

Solenoid butterfly tjqie valves , solenoid poppet 
type valves, solenoid actuated ball valves. 
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The function routine is self-contained with the necessary input variables being 
brought in via the calling statement: 

WGT = CFTW(D,P,IDV) 


where 

D = inlet port diameter (inches) 

P = fluid inlet pressure (psia) 

IDV = flow device category index (Reference PDP-CCNTRL) 

All required constants and dimensioned variables are self-contained in the routine. 
CFTW MATHMATICAL MODEL 

No model is presented. Referenced data ciurves are to be foimd in Reference 1. 9-1. 
CALLING SEQUENCE 

Function CFTW is called, with its specified input variables, each time the computa- 
tions involve a flow control device, from subroutines CMPCAL and LSSCMP. Upon 
execution of the required computation program control returns to the calling 
subroutine . 

SIGNIFICANT VARIABLES 

Significant variables are as follows: 

D — Inlet Port Diameter (inches) 

P — Inlet Pressure (psia) 

IDV — Category Index (see PDP-CCNTRL) 

CFTW— Flow Control Device Weight ■ (lb) 
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SUBPROGRAMS REFERENCED IN CFTW 


None referenced. 


SUBPROGRAMS REFERENCING CFTW 


Name 

Type 

Purpose 


CMPCAL 

S 

Component Weights , 
and Flow Conditions 

Pressure Drops 

LSSCMP 

S 

Component Weights , 
and Flow Conditions 

Pressure Drops 


LISTING REFERENCE PAGE 


A listing of Function CFTW will be found in Appendix B , page 39 . 


FLOW CHART 


None 
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SUBROUTINE CMPCAL 


DESCRIFTION 

The subroutine CMPCAL is designed to perform sizing and weight analysis for all 
of the component units which makeup the system configuration. The system configura- 
tion being defined as the computer image of the system main flow schematic diagram 
wherein all compoents and line segments are arranged in the normal logical sequence. 
The subroutine requires that each system or subsystem fluid segment begin with a 
data entry which flags the fluid kind and state and further requires that when a 
fluid state changes (i. e., gas to liquid), a second data entry must be available. 

The subroutine currently will process systems which employ 02 and H2 as the cryogen 
fluids. The logic employed requires that the configuration data be entered start- 
ing with the cryogen consumer and working back to the fluid storage tanks, thus 
permitting the accumulation of pressiire drop data in an orderly fashion. 

Subroutine CMPCAL is normally employed for the evaluation of a two fluid system and 
normally processes the oxidizer side of the system fluid, followed by the fuel 
side. It can, however, process either side, or, just one side, depending upon the 
setting of the input fluid flag variables. The program calls- in required sub-programs 
as needed for the sizing and weighing of the individual components and line segments 
as they are encountered in the configuration sequence. The CMPCAL analysis proce- 
dure is based upon accomplishing a one-by-one analysis of the sequential component 
stream defined by the configuration table as read-in by subroutine C0MPIL. Based 
upon the input data, the subroutine accomplishes the computation of the individual 
component sizing, weight, pressiire drop and flow constraint data and presents the 
calculated values in tabular formatted output as a "Summary of Computed System Con- 
figuration Parameters . " 

The principal computations accomplished in subroutine CMPCAL are as follows: 

“ (a)^ Upon being called, the subroutine first initializes a set of flag and 

summation variables. It starts the configuration loop by calling for the 
decoding of first branching variable as entered in the first configuration 
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data card. The primary branching control variables employed are CFUNCT 
and CFTYFE as defined in subroutine C0MPIL and PDP-CONFIG. The branching 
variable CFUNCT contains the coding for (in successive data entries), the 
fluid identification, consumer identification and, in turn, each component 
unit sequentially considered in the system. The secondary branching control 
variable CFTYPE successively contains the coding for, the fluid state, the 
consumer characteristic type, and, in turn, the controlling characteristics 
of each component unit sequentially considered in the system. Subroutine 
branching to the specified analysis region of the coding is accomplished via 
a computed G0 T0 statement, controlled by the variable CFUNCT. 

(b) The subroutine identifies the fluid to be considered and identifies its state con 
dition and then initializes the sequential indices. 

(c) Identifies the cryogen consumer and sets up the consumer fluid flowrate, fluid 
pressure and fluid temperatiire with their respective sequential indices. At 
this point the actual configuration analysis has begun. 

(d) The subroutine then processes a line segment (whenever called for by CFUNCT) 
through the sequence of the line analysis to compute - flow conditions, pressure 
drop and line weight. Fano-flow, compressible- flow, velocity effects, as well 
as minimum wall thickness are all taken into consideration in the analysis. 

(e) Processes a control unit (valve, check valve, orifice, regulator, or flowmeter) 
through the sequence of the control analysis to compute flow conditions, pressure 
drop, and control weight. Mass characteristics as a function of pressure re- 
quirements for the control unit are specified in the "tens" digit of CFTYPE. 
Selection of the type of control unit is made via the "units" digit of CFPfPE, 

as defined in PDP-CCHFIG. 

(f) The subroutine processes a fitting or tap in much the same fashion as for the 
line segment analysis, taking Into account the flow geometry effects. Computes 
the flow conditions, pressure drop and fitting or tap weight. 
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'( bv — — erne sys'cetn ~requires^an~ al2'cuimrratl3r^ su^routin^~s^tV~up the accumulator 

pressure, temperature and flowrate. The accumulator weight is computed 
separately by subroutine WTACC which has its own output, therefore the weight 
of the accumulator is not reported by CMPCAL. 

(h) Processes a heat exchanger, sets up the fluid conditions, inlet and outlet 
cold fluid temperatures and pressures and heat source mixture ratios; then 
calls subroutine HEATEX to essentially design the heat exchanger and calculate 
pressure drop, hot fluid flowrates, and heat exchanger weight. If the heat 
source is a gas generator, CMPCAL calls subroutine GASGEN to size and 

weigh the unit. If the heat source is waste heat from another unit, the 
heat source characteristics are calculated elsewhere. 

(i) If the system requires a high pressure pump, the subroutine searches ahead 
to locate the fluid tank and then works backwards to the pump, so as to pro- 
vide both inlet and outlet pump pressures. The subroutine then calls sub- 
routine PARPMP to essentially design the pump and permit computation of 
flow conditions, pressure drop and pung) weight. The subroutine checks 
PTYPE and if the assembly is a turbopump, it calls TURBN to essentially de- 
sign a turbine and compute the turbine hot gas requirements and tiorbine 
weight. The subroutine then computes the turbine gas flow rates and then 
sizes a gas generator to fit it and cemputes a gas generator weight. The 
pump, turbine and gas generator weights are summed to yield a weight for the 
complete assembly. 

( j ) If the system requires a low-pressure pump, the subroutine searches ahead 
to locate the fluid storage tank and then works backward to the pump, so as 
to permit the calculation of both inlet and outlet pump pressures. The 
subroutine then computes the low pressure pump weight (via table lookup) 
and procedes to look up a weight for an electric motor to drive the pump. 

The weights are summed to^ yield a combined motor-pump assembly weight. 

(k) The subroutine then processes a fluid supply tank, first setting up the tank 
temperature and pressure. The actual tank weight for each fluid tank is 
calculated elsewhere either within a given system sub-program (i.e. ,PUEK!L) 
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for which subroutine CMPCAL simple retrieves the weight value from storage, 
or, the tank weight may be calculated in subroutine TAM, in which case CMPCAL 
simple records the tank weight as zero and the weight and tank dimensions are 
found in the TAM output. CMPCAL does check to see if the tank pressure is 
adequate for the system presstire drop total at the tank outlet. 

(l) CMPCAL then outputs the computed configuration component data in a tabular for- 
matted output with all components identified and in the same sequence as given 
in the original system schematic. 

Input data for use in subroutine CMPCAL is read-in at program initiation time via 
subroutine C0MPIL from the configuration data cards . Data from each card is stored 
in a packed array by subroutine ST0C0N using equivalenced array variables defined in 
the Procedure Definition Processor CCNFIG. Retrieval of the data is accomplished in 
CMPCAL via repeated calls to subroutine GETC0N which unpacks the data as needed. 

The input data and computed parameter values are stored in various regions of the 
labeled C0MM0W storage defined by PDP elements. The labeled common storage employed 
by subroutine CMPCAL are as follows: 

C0MM0N/CCACUM/ 

C0MM0N/CCMIG/ 

C0MM0N/CCNTRL/ 

C0MM0N/CDCYCL/ 

C0MM0N/CENG/ 

C0MM0N/CHEX/ 

C0MM0N/CIFUEL/ 

C0MM0N/CVPUEL/ 

C0MM0N/CHS0RC/ 

C0MM0N/CI0UNT/ 

C0Mf^W/CNAMES/ 

C0MM0N/CM0T0R/ 

C0MM0N/C0KST/ 

C0MM0N/CPAGE/ 

c0mi^n/cfump/ 

C0Miy^N/CTAM/ 

C0MM0N/CTURBN/ 

C(^MM2^W/TABL0K/ 
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CMPCAL MATHEMATICAL MODEL 

uioucl- roi— o u"ux ouirrrxe~ci*Ih^K-£rpresenx;ing“xne' equat;rons^ina1:li^Iogil; ,^im^^ 
procedures are presented in Appendix C. 

CALLING SEQUENCE 

Subroutine CMPCAL is initiated by a simple call statement with no calling variables 
from subroutine CRYC0N. The order in which CMPCAL is called relative to system ana- 
lysis sub-programs is determined by the DATA statements labeled KSUBC found in sub- 
routine ST0DTA. 

Data transfer to and from subroutine CMPCAL is effected through the use of INCLUDE 
statements which bring in the appropriate PDP element defining the required labeled 
C0MM0N storage areas. Upon completion of the CMPCAL computations, the program con- 
trol returns to subroutine CRYC0N. 

SIGNIFICANT VAPIABLES 

Significant variables employed in, and processed by, subroutine CMPCAL are defined 
in the following list: 


NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

ICNF 

I 

I 

1 

Number of configuration data cards input 

IDX 

I 

0 

1 

Configuration item index 

ISIGN 

I 

0 

1 

Analysis directional index 

CFUNCT 

I 

I 

1 

Integer Corresponding to Configuration Item 
Function 

CITYPE 

I 

I 

1 

Integer Corresponding to FunctibnType 

CMTYPE 

I 

I 

1 

Integer Corresponding to Material Type 

CITYPE 

I 

I 

1 

Integer Corresponding to Insulation Type 

CNOPER 

I 

I 

1 

Nuniber of units operating 

CNSTBY 

I 

I 

1 

Number of units on standby 

FRCOEF 

R 

I 

100 

Characteristic Friction Factor for Flow Region 

L0D 

R 

I 

100 

Length over Diameter, or. Length 

DIAM ^ 

‘ R 

I 

100 

Diameter 

ITHIK 

R 

I 

100 

Insulation Thickness 

NEAR 

R 

I 

100 

Number of Layers of insulation per inch 

C0DE 

R 

I 

100 

Identification Code for Config. Unit 
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NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

IGAS 

I 

I 

1 

Integer Corresponding to Fluid Kind 

GSTATE 

I 

I 

1 

Integer Corresponding to Fluid State 

PRES 

R 

0 

100 

Fluid Peessue at Each Point in System 

TEMP 

R 

0 

100 

Fluid Temp at each point in System 

WD0TN 

R 

0 

100 

Fluid Flowrate at each print in system 

WD0TI 

R 

I 

2 

Input Fluid Max. Flow Rate at Consumer 

PISN0M 

R 

I 

2 

Input Fluid Pressure at Consumer 

TISN0M 

R 

I 

2 

Input Fluid Temperature at Consumer 

FID 

R 

0 

1 

f L 

-jj- for Configuration Unit Considered 

IDV 

I 

I 

1 

Integer Pointer for Control Mass Characteristic 

LDV 

I 

I 

1 

Integer Pointer for Fitting and Tap Configuration 

RH0 

R . 

0 

1 

Fluid Density when a gas 

DEEP 

R 

0 

1 

Fluid Pressure Drop across Component 

A 

R 

0 

1 

Cross Sectional Area of Flow Region 

WEIGHT 

R 

0 

1 

Weight of Configuration Component Considered 

APRES 

R 

I 

2 

Accumulator Pressure (if used) 

IWDXAC 

I 

0 

2 

Accumulator Index (if used) 

INDXTK 

I 

0 

2 

Fluid Tank Index-Set to IDX 

SIPRES 

R 

I 

2, 1 

Fluid Tank Initial Pressure 

SITEMP 

R 

I 

2, 1 

Fluid Tank Initial Temperature 

WTTOT 

R 

I 

2 

Fluid Tank Weight 

WDOTCF 

R 

I 

10, 2 

Fluid Heat Exhanger Flow Rate 

UC0DE 

R 

I 

12, 2 

Fluid Heat Exchanger I.D. Code 

HEXCIT 

R 

I 

10, 2 

Fluid Heat Exchanger Cold Inlet Temp 

HXCDLP 

R 

I 

10, 2 

Fluid Heat Exchanger Delta-P 

WHXT0T 

R 

I 

10, 2 

Fluid Heat Exchanger Weight 

MACH 

R 

0 

100 

Fluid Mach No. 

MFLG 

I 

0 

100 

Fluid Mach No. Flag 

J0PTN 

I 

I 

- 1 

Option for Minimum Wgt or Minimum Power Pump 

PTEMP 

R 

0 

2 

Pump Fluid Inlet Temperature 

PPRIS 

R 

0 

2 

Pump Fluid Inlet Pressure 

PPDCH 

R 

0 

2 

Pump Fluid Outlet Pressure 

PPDEL 

R 

0 

2 

Pump DELTA-P (each flixid) 

PPWDT 

R 

0 

2 

Pump Flow Rate (each fluid) 

PPRH0 

R 

0 

2 

Pump Inlet Fluid Density 

PNPSH 

R 

I 

2 

Pump NPSH for Each Fluid 
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V 


WAWTR 

WP'R 

T /n 


T\ rK? n D X TJm X /-M\T 

PMPEFF 

R 

T 

2 

Calculated Pump Efficiency (each fluid) 

PMPV0L 

R 

0 

2 

Calculated Pump Volume (each fluid) 

PMP0W 

R 

0 

2 

Calculated Pump Power (each fluid) 

PS PD 

R 

0 

2 

Calculated Pump Speed (each fluid) 

PSTAGE 

R 

0 

2 

Calc. Number Pump Stages (each fluid) 

PWPSPR 

R 

0 

2 

Calc. NISP Required (each fluid) 

PWEGHT 

R 

0 

2 

Calculated Pump Weight (each fluid) 

TWEGHT 

R 

0 

2 

Calculated Turbine Weight (each fluid) 

TITEMP 

R 

I 

2 

Turbine Inlet Temperature (each fluid) 

T0TEMP 

R 

I 

2 

Turbine Outlet Temperature (each fluid) 

TME^T0 

R 

I 

2 

Turbine Gas. Gen. Mixture Ratio (each fluid) 

GWEGHT 

R 

0 

2 

Fluids Required to Run Turbine Gas Generator 

WGTGGA 

R 

0 

2 

Weight of Gas Generator Assy (Each fluid) 

TPDELP 

R 

1/0 

2 

Transfer Pump Delta-P (each fluid) 

TPEFF 

R 

I 

2 

Transfer Pump Efficiency (each fluid) 

TPNPSH 

R ■ 

I 

2 

Transfer Pump WPSH (each fluid) 

TPWD0T 

R 

1/0 

2 

Transfer Pump Flow Rate (each fluid) 

TIWGHT 

R 

0 

2 

Transfer Pump Weight (each fluid) 

HP 

R 

0- 

1 

Calc Horse Power for Electric Motor 

MSS 

R 

I 

1 

Input Motor Speed 

MTYPE 

I 

I 

1 

Input Motor Type 

PDNSTY 

R 

I 

1 

Battery Power Density 

EMWGT 

R 

0 

1 

Electric Motor Weight 

BWEGHT 

R 

0 

1 

Battery Weight 

WCIRCP 

R 

0 

2 

Weight Fluid Circulating Pumps 

WTT0T 

R 

I 

2 

Fluid Tank Weights (from Tank, etc) 

WD0TCF 

R 

I 

10, 2 

Cold Fluid Flowrate - Heat Exchangers 

UC0DE 

R 

I 

H 

O 

ro 

Heat Exchanger I.D. Code 

HXC0DE 

R 

I 

10, 2 

Input Heat Exchanger I.D. Code 

HXCIT 

R 

I 

OJ 

o 

r— 1 

Fluid Heat Exchanger Cold Inlet Temp 

HXCDLP 

R 

I 

10, 2 

Fluid Heat Exchanger - Delta P 

WHXT0T 

R 

0 

10, 2 

Fluid Heat Exchanger Weight 

MACH 

R 

0 

100 

Fluid Mach Number 

MFLG 

I 

0 

100 

Fluid Ife.ch Number Flag 
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SUBPROGRAMS REFERENCED IN CMPCAL 


NAME TYPE 

PAGE F 

GETC0N S 

AMINI F 

GSDNST S 

C0MFL0 S 

RH0LIQ S 

VGVS S 

IWEGHT S 

CFW F 

EXIT S 

PBS F 

PARPMP S 

TURBN S 

CSUBPl S 

FINTAB S 

MIPE F 

HEATEX S 

0TPPMP S 

0TPTRB S 


PURPOSE 

Controls Pagination and Line Count 

Unjacks Configuration Data Records 

Finds minimum of Two Real Values 

Computes Density of Desired Gaseous Fluid at 
Stated Conditions 

Solves Compressible Flow Equations for Desired 
Gaseous Fluid at Stated Conditions for Pressure 
Drop and Mach Number 

Computes Density of Desired Liquid Fluid at 
Stated Conditions 

Computes Mach Number for Desired Fluid at 
Stated Fluid Density using Velocity of Sound 
Equations 

Computes Weight of a Line Segment Considering 
Minimum Wall Thicknesses 

Computes weight of a Control Unit, Fitting, or 
Tap as specified 

Causes Program Termination - Used to Terminate 
from Error Condition 

Computes Absolute Value of defined variable 

Computes Weight and Characteristic Properties 
of a Pump- -given Fluid, Delta P, Flowrate, 

Fluid Density and Estimated Net Position Suction 
Pressure 

Computes Turbine Wei^t given Fluid and Pump 
Characteristics 

Computes Cp for 02-H2 Combusion Products, given 
Temperature and Mixrtvire Ratio 

Table Location and Look-up 

Table Data Extraction 

Computes Heat Exchanger Weight and Characteris- 
tic Properties give luid, HEX index. Flowrate, 
Inlet and Output Temperature and Pressures, and 
Hot Gas Mixture Ratio 

Outputs Punq) Data in Present Format 

Outputs Turbine Data in Preset Format 


RE1'‘EHENCE 
Page B-239 
Page B-174 
System Library 
Page B-219 

Page B-62 

Page B-262 
Page B-322 

Page B-215 

Page B-39 

System Library 

System Library 
Page B-242 

Page B-314 

Page B-91 

Page B-147 
Page B-221 
Page B- 17 7 

Page B-226 
Page B-226 
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DATA TABLES REFERENCED IN CIVEPCAL 


TITLE 

Gas Generator Weight 
L02 Transfer Pump Weight 
LHP Transfer Pump Weight 
Motor Weight 

SUBPROGRAMS REFERENCING CMPCAL 
NAME . TYPE PURPOSE 

CRYC0N S Sequential Control of Program Analysis 

LISTING REFERENCE PAGE 

The subroutine CMPCAL Listing will be found in Appendix B, Page 50. 


TABLE NUMBER 

13 

Ik 

15 

16 


FLOW CHART 

A flow chart for subroutine CMPAL is presented in Figure 1.9-4. 


1-185 

1 


REti'ERENCE 
Page B-85 



LOCKHEED MISSILES & SPACE COMPANY 





FiaURE 1,9-U FLOW CHART FOR SUBROIJTINF, a-IPCAL 


(SHEET 1/U) 


LMSC-A991396 








LOCKHEED MISSILES & SPACE COMPANY 


















LOCKHEED MISSILES & SPACE COMPANY 


V'/'T 


'p7iocc5?s Hcat EvcHAi-*<r,L‘r4 


H T 6 

OC Lew 




/tLC. He/.t S<e. \fjT. 




X.OVJ 


CAiC, H 


jjp - ' |V4 (^^tJ'('t<^t ) ^*~’’ 

frr/i >1^ 

i^ki)y “ ( ^«|< + *^JcJ M 


6/ii <Sry/.:>;/*T».'i ^fSfMCiy v.'t. 





R suBRo-ri a:" a-iPCAL (sheet U/U) 


RN 5 S 
























LMSC-A991396 


SUBROUTINE COMFLj2^ 

DESCRIPTION 

The subroutine solves the compressible through equations for the 
determination of pressure drop of gaseous fluids flowing in long 
ducts. Adiabatic flow is assumed. 

Access to common storage blocks is provided for the following labeled 
common areas: 

C^MM0N/CCNFIG/ 

C0MMON/CI0UNT/ 

C0MM0N/CONST/ 

MATHEMATICAL MODEL FOR COMFL0 

A math model for subroutine COMFL0 is presented in Appendix C. 


CALLING SEQUENCE 

COMFL0 is called with eight calling arguments, seven of> which are 
input values with the eigth argument returning the pressure drop 
value to the calling subroutine. The Mach number is sent to CCNFIG 
common storage via an INCLUDE statement. 

SIGNIFICANT VARIABLES 

• t 

Significant variables processed by COMFL0 are: 
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NAME 

TYPE 

I/O 

DIMENSION 

DESCRIPTION 

IDX 

I 

I 

1 

Configuration Position Index 

P 

R 

I 

1 

Downstream Pressure 

T 

R 

I 

1 

Downstream Temperature 

FLD 

R 



PL 

I 

1 

d“ 

A 

R 

I 

1 

Cross-sectional area of duct 

WDC<T 

R 

I 

1 

Fluid flowrate 

N 

R 

I 

1 

Fluid Identity ; 





1 = 0 ; 2 = H-; 17 - Ge; 
18 = N^ ^ 

DEEP 

R 

0 

1 

Pressure Drop Calculated Value 

MACH 

R 

0 

100 

MACH Number 

Ml 

R 

c 

1 

Upstream MACH Nimiber 

M2 

R 

c 

1 

Downstream MACH Number 

FLDMAX 

R 

c 

1 

f (Ml) 





max 

DF 

R 

c 

1 

= FLDMAX + ^ 


SUBPROGRAMS 

REFERENCED BY COMFL0 


NAME 

TYPE 

PURPOSE 

REFERENCES 

DIAG 

F 

Diagnostic Writer 

Page B-111 

CSUBP 

S 

Cp for specified 
Fluid 

Page B-88 

CSUBV 

F 

Cv for Specified 
Fluid 

Page B-90 

HFTGAM 

F 

Compute for 

Hydrogen 

Page B-189 

SORT 

F 

Square Root of 
Variable Value 

System Routine 

FLiZ5DEQ 

F 

Computes F(m) 
MACH Numbers 

Page B-i48 

ABS 

F 

Absolute Value of 
Variable 

System Routine 
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SUBROUTINES REFERENCING COMFL(2^ 

NAME TYRE PURPOSE REFERENCE 

CMPCAL S Configuration Analysis Page B-50 

LSSCMP S Configuration Analysis Page B-208 

LISTING REFERENCE 

A listing of subroutine COMFLJ^ will be found in Appendix-B, page 62. 
FLCW CHART 

No flow chart is presented for subroutine COMFLgf. 
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PROGRAM C0NTRL 
DESCRIPTION 

Program CCiNTRL is the initialization and driver routine which sets up TCIMM for 
any of the fiye cryogen system analyses. The routine initializes the data storage sub- 
routines, establishes the date, reads in the data tables via subroutine INTAB and 
reads in the program data deck via subroutine CC^MPIL. In so doing, CC^NTRL sets 
up a number of index value relating to system type and kind and whether the input data 
deck is for a single case or multiple case run. 

CCfNTRL then calls subroutine CRYCC^N and initiates the specified system analysis. 
Input data for C0NTRL is read from the first several cards of the input data deck. 
This data is used and transferred to storage in labeled common areas defined by 
Procedure Definition Processor elements. The labeled common areas used by 
CdNTRL are: 

C0MM0N/CCNTRL/ 

C0MM<2fN/CI0UNT/ . ■ ' . 

C0MM<2fN/CKEYS/ 

C0MMq(N/CPAGE/ 

C(^fNTRL MATHEMATICAL MODEL 
None. 

CALLING SEQUENCE 

C0NTRL is the TCIMM driver routine and as a main program it is not called. 
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SIGNIFICANT VARIABLES 


NAME 

TYPE 

I/O 

DIMENSION 

DESCRIPTION 

NAME 

A 

I 

1 

User Name 

DEPT 

I 

I 

1 

User Department 

BLD 

I 

I 

1 

Building Number 

EXT 

I 

I 

1 

Phone Number 

CTITLE 

A 

I 

1 

Case Title 

NSYS 

A 

I 

1 

System Type Index 

NI 

A 

I 

1 

Rest of System Name 

NCRIT 

I 

I 

1 

System Kind 

INTGR 

A 

I 

1 

Case Index 

MDTRE 

I 

I 

11 

Diagnostic Switches 

NAMSYS 

I 

I 

5 

System Names Index 

SCRIT 

I 

I 

1 

System Kind Index 


SUBPROGRAMS REFERENCED IN CONTRT. 


NAME 

TYPE 

PURPOSE 

REFERENCE 

ST<2(DTA 

S 

Data Storage Routine 

Page B-272 

0TUNIT 

S 

System Device Unit Selecting 
Routine 

Page B-237 

DATE 

s 

Finds Date 

System Routine 

INTAB 

s 

Loads Data Tables 

Page B-198 

C<2(MPIL 

s 

Loads Input Data 

Page B-64 

CRYC0N 

s 

System Analysis Sequencer Routine 

Page B-85 


SUBPROGRAMS REFERENCING CG^NTRL 
None. 
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LISTING REFERENCE PAGE 

A listing of subroutine C0NTRL will be found in Appendix B, page 75. 


FLOW CHART 

The flow chart for subroutine C0NTRL is presented in Figure 1.4-1. 
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SUBROUTINE CQNSUM 
DESCRIPTION 

This subroutine, when called, provides access to subroutines ENGINE, APUFLC^ and 
FL0RAT. It is essentially a switching subroutine used by subroutine CRYC0N. 

Data transfer to CC^NSUM is provided through the Procedure Definition Processor 
CCNTRL. The only labeled C(2(MM(2fN required is C0MM0N/CENTRL/. 


C0NSUM MATHEMATICAL MODEL 



None 

SIGNIFICANT VARIABLES 
NAME TYPE 

1/0 

DIMENSION 

DESCRIPTION 

SYSNUM I 

I 

1 

System Number Index 

CALLING SEQUENCE 





C0NSUM is initiated via a simple call from subroutine CRYCON with no calling argu- 
ments. Data transfer to C0NSUM is accomplished through an INCLUDE statement. 


SUBROUTINES REFERENCED IN C0NSUM 


NAME 

TYPE 

PURPOSE 

REFERENCE 

ENGINE 

S 

Rocket Engine Parameter 
Calculations 

Page B-138 

flQrat 

s 

Flow Rate Calculations 

Page B-149 

APUFL0 

s 

APU Flow Rate Calculations 

Page B-5 

SUBROUTINES REFERENCING CQNSUM 


NAME 

TYPE 

PURPOSE 

REFERENCE 

CRYCON 

S 

Program Sequential Control 

Page B-85 
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LISTING REFERENCE PAGK 

The subroutine CC^NSUM listing will be found in Appendix B, page 74. 


FLOW CHART 
None. 
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SUBROUTINE CRYC0N 
DESCRIPTION 

This subroutine performs the major branching functions of calling in the various 
subprograms needed for each specified type of CRYOGEN system analysis. A detailed 
description of CRYC0N and its functions is given in subsection 1.4.2. 

Input data transfer to CRYC0N is effected by the use of labeled common storage. The 
labeled common areas employed are: 

C0MM0N/CCNTRL/ 

C0MMOlN/CKEYS/ 

CRYC0N MATHEMATICAL MODEL 
None 

CALLING SEQUENCE 

CRYC0N is called from C0NTRL with no calling arguments. Data transfer to CRYC0N 
is accomplished through INCLUDE statements as shown in the subroutine listing, 

SIGNIFICANT VARIABLES 

Significant variables processed by CRYC0N are: 


NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

SYSNUM 

I 

I 

1 

System. Number Index 

SCRIT 

I 

I 

1 

System Kind Index 

KSUBC 

I 

D 

9 

Subprogram Calling Index 

LREPT 

I 

C 

1 

Recycling Index 

MOTRC 

I 

I 

11 

Diagnostic Switch 
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SUBPROGRAMS REFERENCED IN CRYC0N 



NAME 

TYPE 

PURPOSE 

REFERENCE 

DIAG 

F 

Diagnostic Ih:int 

Page 

B-111 

ACCRES 

S 

Accumulator Residuals Calculations 

Page 

B-2 

AGQWT 

S 

Acquisition Device Weight Calculation . 

Page 

B-3 

APUSUB 

S 

APU Subcritic al Analysis 

Page 

B-8 

APUSUP 

S 

APU Supercritical Analysis 

Page 

B-12 

CMPCAL 

S 

Configuration Analysis 

Page 

B-50 

FUELCL 

S 

Fuel Cell Analysis 

Page 

B-152 

C0NSUM 

S 

Program Consumer Processor 

Page 

B-74 

ECLSS 

S 

Life Support Analysis 

Page 

B-122 

LIQRES 

S 

Liquid Residuals Calculations 

Page 

B-2 04 

TANK 

S 

Tank Propellant History Calculations 

Page 

B-2 7 7 

TSIZEI 

s 

Tank Sizing Analysis 

Page 

B-310 

WTACC 

s 

Accumulator Weight Analysis 

Page 

B-330 

OPTWSM 

s 

Configuration Weight Summary Output 

Page 

B-226 

SUBPROGRAMS REFERENCING CRYC0N 



NAME 

TYPE 

PURPOSE 

REFERENCE 

C0NTRL 

P 

TCIMM Main Program 

Page B-75 

LISTING REFERENCE PAGE 



A listing of subroutine CRYC0N is given in Appendix B, page 85. 




FLOW CHART 

A flow chart for subroutine CRYC0N is presented in Figure 1.4-3. 
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SUBROUTINE CYLHED 


For a description of CYLHED see the writeup for "SPHSEG". Page B-263 

SUBROUTINE CYMSPH 

For a description of CYMSPH see the writeup for "SPHSEG." Page B-263 


FUNCTION CYLNDR 


For a description of CYLNDR see the writeup for "GOmTRY. " Page B-175 


FUNCTION CYLSPH 


For a description of CYLSPH see the writeup for "GC^MTRY." Page B-175 


f ' 
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FUNCTION DIAG 
DESCRIPTION 


Function DIAG will print when a subroutine was entered or exited for diagnostic 
purposes. This routine is turned on by setting a value of MDTRC (I) equal to one (1) 
on the "System Definition Card" of the program input data deck. 

CALLING SEQUENCE 


JP = DIAG (NOPT.NAME) 


Name 

Type. 


Dimension 

Description 

NOPT 

I 

I 


If NOPT = -1, DIAG will print the 

name of the routine exited. 

If NOPT = 0, no trace will be made. 

If NOPT = 1, DIAG will print the 
name of the routine 
entered. 

NAME 

A 

I 


Calling routine name 


SIGNIFICANT VARIABLES 
None 

SUBPROGRAMS REFERENCED IN THIS SUBPROGRAM 
None 

SUBPROGRAMS REFERENCING THIS SUBPROGRAM 
All major svibprograms 
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LISTING REFERENCE PAGE 

A listing of function DIAG will be found in Appendix B, page 111. 
FLOW CHART 

None 
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SUBROUTINE ECI5S 

The ECISS subroutine contains the system analysis logic, mathematical expressions 
and equations, and computational techniques required for a super-critical life- 
support system. The subroutine is structured to be nearly self-contained due to the 
fact that it considers a cryogenic oxygen and nitrogen supply system and nitrogen 
is not employed in the other five cryogen systems considered by the main program. 

Based upon the input ECIBS data package, the subroutine accon^jlishes the computation 
of pertinent system parameters and presents the calculated values in tabular formatted 
output. The following are the principal computations accomplished in the subroutine: 

(a) Computes quantity of fluids consumed for life support, vehicle leakage, airlock 
or cabin repressurization, and total fluid requirements. 

(b) Computes the contingency reserve fluids required for the mission, and usable 
fluid consumables by species. 

(c) Computes nominal fluid flow rates, repressurization flow rates, quantity of 
fluids consumed each duty cycle interval, and maximum flow rate of fluids 
for system sizing. 

(d) Con^jutes initial fluid tank conditions. 

(e) Computes for each duty cycle interval; weight of fluids withdrawn from tanks, 
percent fluids withdrawn from tanks, density of fluids remaining in tanks, 
specific heat input required for fluids remaining in tanks, energy derivative 
for fluids remaining in tanks. 

(f) Sizes fluid conditioning heat exchanbers (BTU's required), and, computes power 
required to provide energy for fluid conditioning heat exchangers. 

(g) Sizes heat sources required for fluid tanks (BTU's required) and computes tank 
heater ratings based upon input heater diameter and length. Computes power 
required to provide energy needed in fluid tanks . 
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(i) Computes volume, surface area, and heat leak into fluid tanks. Computes quan- 
tity of fluids vented during mission duty cycle intervals and total fluids 
vented for mission. 

(j) Computes total quantity of fluids to be loaded for mission. 

(k) Computes fluid tank insulation weight, fluid tank pressiire vessel wei^ts, 
fluid tank vaccum jacket weights, and total weight of fluid tank assemblies. 

(l) Computes weight of electrical fluid conditioning heat exchangers. 

(m) Computes the individual fluid tank energy histories and the electrical heater 
OFF-ON duty cycle history in detail for ten-minute intervals of each major syste 
duty cycle interval. 

System component wei^ts and pressure drops for the maximum- flow operating conditions 
are computed by subroutine ISSCMP. 

Input data for use in ECISS is read in at program initation time via subroutine 
G0MPIL. The input data are stored in various regions of the. labeled C0MM0N storage 
previously defined by Procedure Definition Processor (PDP) elements. The labeled 
C0MM0N areas employed by subroutine ECISS for data storage and transfer are as follow 


C0MM0N/CACCUM/ 

C0M^N/CHB0RC/ 

C0MM0N/CIAPU/ 

C0MM0N/CMATRL/ 

C0MM0N/CVAPU/ 

C0IVIM0N/CONST/ 

C0MM0N/CDCYCL/ 

C0MM0N/CPUMP/ 

C0MM0N/CIISS/ 

C0MM0N/CTANK/ 

C0MM0N/CVIBS/ 

C0MM0N/CI0UNT/ 

C0MM0N/CENG/ 

C0M1^N/TABL0K/ 

C0MM0N/CIFUEL/ 


C0MM0N/CVFUEL/ 


C0Miy^N/CHEX/ 
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ECIgS MATHEMATICAL MODEL 

The ECISS Math Model consisting of analysis logic, equations, necessary tables 
and constants, procedures and the techniques required are presented in Appendix 

C. 


CALLING SEQUENCE 

Subroutine ECISS is initiated by a simple call from subroutine CRYC0N, with no 
calling variables. Data transfer to ECISS is accomplished through the use of 
INCLUDE statement as shown in the subroutine listing. Upon completion of the re- 
quired ECISS computation, sequential control of the program is returned to 
subroutine CRYC0N 

SIGMEICANT VARIABLES 

Significant variables considered in, and processed by subroutine ECISS 
are defined in the following list: 


NAME 

TYPE 

HI. 

DIMENSION 

DESCRIPTION 

MDAYS 

I 

I 

1 

Nunfcer of days in mission 

NCREW 

I 

I 

1 

Number of personnel on board 

NRPES 

I 

I 

1 

Number of repressurizations planned 

NDARIS 

I 

I 

1 

Number of days reserve fluids required 

0FN0M 

R 

I 

1 

Metabolic Oxygen Consumption Rate 

GLKRAT 

R 

I 

1 

Vehicle Atmosphere Leakage Rate 

TISN0M 

R 

I 

2 

Nominal Gaseous Fluid Delivery Temp 

RH0BEG 

R 

I 

2 

Initial fluids loading densities 

TKFTEM 

R 

I 

2 

Allowable Fluids Tank Final Temperature 

TKPPRS 

R 

I 

2 

Allowable fluids Tank Final Pressure 

TENVR 

R 

I 

1 

ECISS System Environemtnal Temperature 
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NAME 

TYPE 

1/0 

DIMENSION ' 

DESCRIPTION 

CABV0L 

R 

I 

1 

Cabin or Airlock Volume 

LINDIA 

R 

I 

2 

line Diameter entering Heat Exchangers 

HTRFLX 

R 

I 

2 

Heater Rating (BTCJ/HR-Sq In.) @ T_ „ 

l\6l 

PISN0M 

R 

I 

2 

Nominal Pressure of Delivered Gaseous Fluids 

HTKDIA 

R 

I 

2 

Tank Heater Diameter 

HTRLNG 

R 

I 

2 

Tank Heater Length 

PSETI 

R 

I 

1 

02 Tank Lower Pressure Limit Setting 

ESET2 

R 

I 

1 

N2 Tank Lower Pressure Limit Setting 

SITYPE 

I 

I 

1 — 1 
CM 

Fluid Tank Insulation Type 

SMIYPE 

I 

I 

2, 1 

Fluid Tank Wall Material Type 

SITEMP 

R 

I 

2, 1 

Initial Temp Fluids in Tank 

S0PRES 

R 

I 

2, 1 

Fluid Tank Operating Pressures 

SVPRES 

R 

I 

2, 1 

Fluid Tank Vent Pressures 

SHFLUX 

R 

I 

2, 1 

Estimated Heat Leak Flmc - Fluid Tanks 

SITHIK 

R 

I 

r— 1 
OJ 

Fluid Tank Insulation Thickness 

SNBAR 

R 

I 

2, 1 

Number of Insulation Layers per Inch Thickness 

DCYCLE 

R 

I 

6o 

Duty Cycle Operating and Non-Operating Time 
Intervals - in sequential array 

RPRTIM 

R 

I 

12 

Repressuii zation Period Duration - (NRPRIB 
values entered in duty cyle array) 

02MC0N 

R 

0 

1 

Total Wgt Metabolic 02 - Consumed in Mission 

02LC0N 

R 

0 

12 

Metabolic 02 Wgt Consumed each duty cycle in- 
terval 

02LWT 

R 

0 

12 

Metabolic 02 Wgt of Leakage - each duty cycle 
interval 

N2EWT 

R 

0 

12 

N2 Wgt lost by leakage - each duty cycle intei 
val 

N2LC0N 

R 

0 

1 

Total Wgt N2 Leakage - lost in mission 

GASWGT 

R 

0 

1 

Weight of atmosphere lost in one depressuriza- 
tion 

02REPR 

R 

0 

1 

Wgt 02 required for all repressurizations 

N2REPR 

R 

0 

1 

Wgt N2 required for all repressurizations 

02C0NS 

R 

0 

1 

Wgt 02 (metabolic + Leakage + Repressurizatior 

N2C0NS 

R 

0 

1 

Wgt W2 (leakage + repressurization) 

02MRES 

R 

0 

1 

Wgt 02 (for metabolic reserve) 

02LRES 

R 

0 

1 

Wgt 02 for leakage reserve 


1-206 


LMSC-A991396 


NAME 

TYPE 

ll± 

DIMENSION 

DESCRIPTION 

N2nRES 

R 

0 

1 

Wgt N2 for Leakage Reserve 

jfeKES 

R 

0 

1 

Wgt of Reserve 02 for Contingency 

N2RES 

R 

0 

1 

Wgt of Reserve N2 for Contingency 

02TOTU 

R 

0 

1 

Wgt of Total Usable 02 on board 

N2T0TU 

R 

0 

1 

Wgt of Total Usable N2 on board 

WrijZST0N 

R . 

0 

12 

Nom. 02 Flow Rate - each duty cycle interval 

WD0TNN 

R 

0 

12 

Nom. N2 Flow Rate - each duty cycle interval 

WD0T0R 

R 

0 

12 

02 Repressurization Flow Rate - each duty 
cycle interval 

WD0TNR 

R 

0 

12 

N2 Repressurization Flow Rate - each duty cycle 
interval 

Vn)T02 

R 

0 

12 

Total 02 Flow Rate - each duty cycle interval 

WDTN2 ' 

R 

0 

12 

Total N2 Flow Rate - each duty cycle interval 

WT02 

R 

0 

12 

Total Wgt 02 used each duty cycle interval 

WTN2 

R 

0 

12 

Total Wgt N2 used each duty cycle interval 

WDT0MX 

R 

0 

1 

Max. 02 Flow Rate in any Interval 

WTTNMX 

R . 

0 

1 

Max. N2 Flow Rate in any interval 

WD0TI 

R 

0 

2 

Max. Fluid Flow Rates in lbs per second 

WD0TT 

R 

0 

2 

Saved values of WD0TI for other use 

TEMP02 

R 

0 

1 

Initial Tec^) of 02 in Tank 

TEMPN2 

R 

0 

1 

Initial Temp of N2 in Tank 

TK02DP 

R 

0 

12 

Cum Wgt 02 removed from tank as f(time) 

TKN2DP 

R 

0 

12 

Cum Wgt N2 removed from tank as f(time) 

PC0XWD 

R 

0 

12 

Percent 02 removed from tank as f(time) 

PCN2WD 

R 

0 

12 

Percent N2 removed from tank as f(time) 

02RH0 

R 

0 

12 

Density of 02 in tank-end of each interval 

R2RH0 - 

R 

0 

12 

Density of N2 in tank-end of each interval 

02TEMP 

R 

0 

12 

Temp of 02 in tank- end of each interval 

N2TEMP 

R 

0 

12 

Temp of in tank -end of each interval 

D0DM02 

R 

0 

12 

Spec Heat Input to 02-end of each . interval 

D0DMN2 

R 

0 

12 

Spec Heat Input to N2-end of each interval 

DPDU02' 

R " 

0 

^12 

Energy Derivative for 02. - end of each interval 

DPDUN2 

R 

0 

12 

Energy Derivative for N2-end of each interval 

02H 

R 

0 

12 

Enthalpy of 02 at end of each interval 

N2H 

R 

0 

12 

Enthalpy at N2 at end of each interval 
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NAME 

TYPE 

1/2 

DIMENSION 

DESCRIPTION 

QPT0R 

R 

0 

12 

Heat Rate to Condition 02 at end of each interval 

QDT0MK 

R 

0 

1 

Maxu Heat Rate for Conditioning 02 

QPTNR 

R 

0 

12 

Heat Rate to Condition IC at end of each interval 

qOTNMX 

R 

0 

1 

Max. Heat Rate for Conditioning N2 

HWAT02 

R 

0 

12 

Energy Required for Heat to 02-end of each interv 

HWT0MX 

R 

0 

1 

Max. Energy Reqd for Heat to 02-any interval 

HWT0TT 

R 

0 

1 

Total Energy Reqd for Heat to 02-all intervals 

HWATN2 

R 

0 

12 

Energy Reqd for Heat to N2-end of each interval 

HWTNMX 

R 

0 

1 

Max. Energy Reqd for Heat to N2 - any interval 

HWTNTT 

R 

0 

1 

Total Energy Reqd for Heat to N2-all intervals 

QJ)TTK0 

R 

0 

12 

Heat Rate to Condition 02 Tank - each interval 

QDTTKN 

R 

0 

12 

Heat Rate to Condition Tank - each interval 

HTRRAl 

R 

0 

1 

Heater Rating for 02Tank at Max. Heat Reqmt 

HTRRA2 

R 

0 

1 

Heater Rating for N2 Tank at Max. Heat Reqmt 

TWAT02 

R 

0 

12 

Energy Reqd for Heat Input to 02 Tank - each 
interval 

TWT0MX 

R 

0 

1 

Max Energy for Heat Input to 02 Tank-any Interval 

TWT0TT 

R 

0 

1 

Total Energy for Heat Input to 02 Tank-all interv 

TWATN2 

R 

02 

12 

Energy Reqd for Heat Input to N2 Tank-each interv 

TWTNMX 

R 

0 

1 

Max. Energy for Heat Input to N2 Tank-any interva 

TWTNTT 

R 

0 

1 

Total Energy for Heat Input to N2 Tank-all interv 

T0TWMX 

R 

0 

1 

ffex. Energy Rqmt all heat sources 

T0TWAT 

R 

0 

1 

Total Energy Reqd - all heat sources -all interval 

T0TP0W 

R 

0 

1 

Total Power Rqmts (KW-HRs) 

RH0END 

R 

0 

2 

Fluid Densities at end of mission 

WTRSID 

R 

0 

2 

Wgt Residual Fluids in Tanks 

V0LTK 

R 

0 

2 

Volume of Fluid Storage Tanks 

ARETK 

R 

0 

2 

Surface Area of Fluid Storage Tanks 

Q,02LK 

R 

0 

12 

Heat Leak into 02 Tank - each interval 

QLK0TK 

R 

0 

1 

Cum. Heat Leak into 02 Tank - each interval 

QN2LK 

R 

0 

12 

Heat Leak into N2 Tank - each interval 

QLKMK 

R 

0 

1 

Cum. Heat Leak into N2 Tank - all intervals 

WTVET0 

R 

0 

12 

Wgt of vented 02 - each interval 
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NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

W02 

R 

0 

1 

Cum. Wgt of Vented 02 - all intervals 

WIWTN 

R 

0 

12 

Wgt of Vented N2 - each interval 

¥VN2 

R 

0 

1 

Cum. Wgt of Vented N2 - all intervals 

T0TWTL 

R 

0 

2 

Total Weight of each Fluid Loaded 

DITK 

R 

0 

2 

Diameter of each fluid tank 

TIWT 

R 

0 

2, 1 

Tank Insulation Wgt - each Fluid Tank 

DIVJ 

R 

0 

2 

Diameter of each Tank Vacuum Jacket 

R0FTU 

R 

0 

2 

Tank Material Density/Ultimate Stress 

WTPV 

R 

0 

2 

Weight of Pressure Vessel - each tank 

WTVJ0 

R 

0 

1 

Weight of Vacuum Jacket - 02 Tank 

WT7JN 

R 

0 

1 

Weight of Vacuum Jacket - N2 Tank 

WTT0T 

R 

0 

2 

Total Tank Assy Wgt - Each Tank 

WD0TX 

R 

0 

10, 2 

Fluid Flow Rate Into Heat Exchanger 

UCODE 

R 

I 

O 

ro 

Heat Exchanger I.D. Code 

HEXCIT 

R 

0 

o 

ro 

Cold Fluid Inlet Temperature 

HEXC0T 

R 

0 

o 

ro 

Cold Fluid Outlet Temperature 

HEXCIP 

R 

0 

OJ 

o 
1— 1 

Cold Fluid Inlet Temperature 

HSQREQ 

R 

0 

OJ 

o 
1 — 1 

Heat Source Energy Required 

ELCP0 

R 

0 

10, 2 

Electrical Energy for Heat source 

JX 

I 

0 

1 

Heat Exchanger Index (Counter) 

IGAS 

I 

0 

1 

Fluid Index 

IFIN 

I 

I 

1 

Heat Exchanger-Heat Dissipation Fins Switch 

WHXT0T 

R 

0 

10, 2 

Heat Exchanger Calculated Weight 

HXCDLP 

R 

0 

10, 2 

Cold Fluid Pressure Drop through HEX 

U0A 

R 

0 

10,2 

Heat Exchanger Heat Transfer Coefficient 

DH 

R 

0 

10,2 

Heat Exchanger Diameter 

HLNGTH 

R 

0 

OJ 

•V 

o 

H 

Heat Exchanger Length 

TIMING 

R 

0 

1 

Time Increment defined as unity 

PTANKl 

R 

I 

1 

02 Tank Pressijre at Sub-interval time point 

PTANK2 

R 

I 

1 

N2 Tank Pressure at Sub-interval time point 

TIM 

R 

I 

12 

Duty Cycle Operating Time interval 

TN0N0P 

R 

I 

12 

Duty Cycle Non-Operating Time interval 

NPT 

I 

0 

1 

Number of sub-intervals in duty cycle interval 

WDT03O 

R 

0 

1 

02 Gas Flow during Sub-Interval 

WDTN30 

R 

0 

1 

N2 Gas Plow d\iring Sub- Interval 
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NAME 

TYPE 

III 

DIMENSION 

DESCRIPTION 

K 

I 

0 

1 

Major duty cycle Index (counter) 

LPRES 

I 

0 

1 

Index to locate repressurization interval 

IK 

I 

0 

1 

Index for resetting sub-sub- interval examination 
of repressurization event back to leakage event 
sequence 

TIME 

R 

0 

1 

Time Point of pressure history event (min) 

TK0DP 

R 

0 

1 

Cum. 02 Tank Depletion at each time event 

TKNDP 

R 

0 

1 

Cum. N2 Tank Depletion at each time event 

RPTIME 

R 

0 

1 

Time Point of Repressurization History Event (mil 

PC0XW 

R 

0 

1 

Percent 02 withdrawn as function of time 

PCN2W 

R 

0 

1 

Percent N2 withdrawn as function of time 

0RH0 

R ■ 

0 

1 

Density of 02 in Tank at end of Sub-Interval 

NRH0 

R 

0 

1 

Density of N2 in tank at end of sub-interval 

0XTEM 

R 

0 

1 

Temp of 02 in Tank at End of Sub -Interval 

N2TEM 

R 

0 

1 

Temp of N2 in Tank at End of Sub- Interval 

DQPME 

R 

0 

1 

Spec Heat Input to 02 - at end of sub- interval 

DOPIVE 

R 

0 

1 

Spec Heat Input to N2 - at end of sub- interval 

DPDUl 

R 

0 

1 

Energy Derivative of '02 - at end of sub-interval 

DPDU2 

R 

0 

1 

Energy Derivative of N2 - at end of sub-interval 

QDTTKl 

R 

0 

1 

Heat Rate to Condition 02 Tank - For sub-interval 

QDTTK2 

R 

0 

1 

Heat Rate to Condition N2 Tank - for sub-interval 

Q1CUM0 

R 

0 

1 

Cum. Heat Rqd to condition 02 Tank 

Q2CUMN 

R 

0 

1 

Cum. Heat Reqd to condition N2 Tank 

BETA0 

R 

0 

1 

■Volume Expansivity of 02 in Tank-at end of sub- 
interval 

BETAN 

R 

0 

1 

Volume Expansivity of N2 in Tank-at end of sub- 
interval 

CP0 

R 

0 

1 

Spec Heat of 02 in tank-at sub-interval 

CPN 

R 

0 

1 

Spec Heat of N2 in tank-at sub-interval 

DELPI 

R 

0 

1 

02 Tank Pressure Drop - sub-interval depletion 

DELP2 

R 

0 

1 

N2 Tank Pressure Drop - sub-interval depletion 

QHTRl 

R 

0 

1 

02 Tank Heater Output (BTQ/MTN) 

QHTR2 

R 

0 

I 

N2 Tank Heater Output (BTU/MIN) 

QELCl 

R 

0 

1 

- 02 Tank Heat Req'd (BTU) 

HTR0N1 

R 

0 

1 . 

Time 02-Heater is ON to provide QELCl 

qELC2 

R 

0 

1 

N2 Tank Heat Req'd (BTU) 

HTR0N2 

R 

0 

I 

Time N2 -Heater is ON to provide QEI£!2 
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SUBPROGRAMS. REFERENCED IN ECIfiS 


Name Type 

PAGE F 

FINTAB S 

MIPE F 

CSUBV F 

ZGET F 

PHTH0N S 

OXENTH F 

NIENTH F 

AMAXI F 

DENSON S 

TC0ND S 

HEXELC S 

CSUBP S 

0PTHXE S 

OPTP0W S 

ISSCMP S 


Purpose 

Controls Pagination and Line Count 
Finds Designated Table of Data 
Table Data Extraction 

Compute Cv for Desired Fpuid and Conditions 

Compute Compressibility for Desired Fluid 
and Conditions 

Computes Specific Heat Input { THETA) and 
Energy Derivative (PHl) for Desired Fluid 
Conditions 

Computes 02 Enthalpy at StatedConditions 

Computes N2 Enthalpy at Stated Conditions 

Finds Maximum of Two Real Values 

Computes Density for Desired Fluid at Stated 
Conditions 

Compute Thermal Conductivity for Specified 
Insulation at Stated Conditions 

Computes Heat Exchanger Weight and Characteris- 
tics 

Compute Cp for Desired Fluid and Conditions 

Output Subroutine for Electric Heat Exhanger 
Data 

Output Subroutine for ECISS Power Summary 

Computes Pressure drops and component weights 
for the ECIfiS Configuration Analysis 


SUBPROGRAl^ REFERENCEINQ ECIfiS 
Name Type Purpose 

CRYC0N S Sequential Control of Designated System Analysis 


LISTING REFERENCE PAGE 

A listing of subroutine ECISS will be found in Appendix B, Page 122 


FLOW CHART 

The flow chart for subroutine ECISS is presented in Figure 1.9-5 


Reference. 

Page B-239 
Page B-147 
Page B-221 
Page B-93 
Page B-336 

Page B-249 

Page B-238 
Page B-224 
System Library 
Page B-108 

Page B-290 

Page B-184 

Page B-88 
Page B-229 

Page B-230 
Page B-208 


Reference 
Page B-85 
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Fig. li9-5 Flowchart for Subroutine ECLSS 
(Sheet l/2) 
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SUBR0UTINE ELIPSG 

For a description of ELIPSG see the writeup for "SPHSEG. " Page B-263 
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Subroutine FINTAB 
DESCRIPTION 


Subroutine FINTAB is called just prior to an interpolation on any table. This routine 
looks up the number of dimensions (ND) of the designated table and if it is greater 
than two. The routine transfers the (ND-2) "independent" variables from the master 
table array (TABLE) to a small two dimensional array TAB (6,5) . Then the routine 
FINTAB sets a pointer to the location of the first subtable of the designated major 
table . 

Labeled Common Used 


C0MM0N/CI0UNT/ 

C0MM0N/CTAB/ 

C0MM0N/CTABA/ 

Mathematical Model for FINTAB 

None 

Calling Sequence 

FINTAB is called from any subprogram which uses table interpolation (or polynomial fit) . 
It has one variable - the table ID# in its calling sequence . All other data is transferred 
through labeled common CTAB and CTABA. 


Significant Variables 




Name 

Type 

1/0 

Dimension 

Description 

IDXl 

I 

0 

1 

Points to first location of subtables 

ITAB 

I 

0 

6,5 

Contains the (ND-2) independent 
variable 

IT ABLE 

I . 

I 

7000 

Main storage array for table data 
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Name 

Type 

1/0 

Dimension 

Description 

JTABID 

I 

0 

1 

Table ID of designated table 

TAB 

R 

0 

6,5 

Equivalent to ITAB 

TABLE 

R 

I 

7000 

Equivalent to ITABLE 

TLA 

• 

I 

I 

50 

Contains location in TABLE of 1st 
word for each table 


Subprograms Referenced by FINTAB 

Name Type F>urpose Reference 

DIAG Prints diagnostic trace Page B-111 

Subprograms Referencii^ FINTAB 

All routines which do table interpolation. Same as function MIPE. See MIPE Page 
Listing Reference 

A listing of FINTAB can be found in Appendix B , Page 147 
Flow Chart 

For flow chart of FINTAB see Figure 1.9-6 
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C FIN tab') 


Se+ Toble id”* "froirn [ 
Cq Ihn0 Se<jucnce 

ITA6ID= MT/g 




Wri4e 


1^ia,qnof>4rt 


(IDXI^ Etjuol 'f'O 
Fifs4 Loca+»ov^ oP +^c Table 

IDXI = TLA (kTAJ) 


CIhD 



Seqirck ' Ta blc -^or +he 

o4 “Hfxe. MD"2 "-Xr^de pendcn't^ 
Variable. ar\<i Sei" XDXI — 
Lo CQ “bior\ O'f Lgi^4 li^or j 

Adva^ice XDXl by 1 6o 
Tha4 X4 Poin+s At Fiir44 
UocAiioo in ■+be 5 ub+/ible 
Cie X-y Tdble) Pa^t o4 
fi-ve 6 -'Vck\ Table IATM 

i 

(ReturM.) 


Fig. 1.9.6 Flowchart for FINTAB 
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SUBROUTINE FL0RAT 
DESCRIPTION 


This subroutine computes the flow rates for the support gas generation required by 
the system heat exchangers and turbopumps. The individual flow rates are stored 
in assigned variables and the total flow rate by fluid species is computed and stored 
for later use. 

The following are the principal computations performed in the subroutine: 

(a) Computes flowrate required for each gas generator in system main 
stream by fluid species. 

(b) Sums flow rate by fluid species for heat exchanger gas generators. 

(c) Sums flow rates by fluid species for turbopump gas generators (if 
required). 

(d) Computes total flow rates by fluid species for cryogen consumer and 
all gas generators. 

(e) Outputs flow rate data in predetermined format as part of analysis 
output. 


Input data for FL0RAT has previously been read in by subroutine C0MPIL. This 
data , and data that has been computed by subroutine C0NSUM is available to FL0RAT 
through the labeled C0MM0N storage blocks. The labeled C0MM0N blocks used 
by FL0RAT are: 

C0MM0N/CCNTRL/ 

C0MM0N/CENG/ 

C0MM0N/C FLRAT/ 

C0MM0N/CHEX/ 

C0MM0N/C PUMP/ 

C0MM0N/CTANK/ 

C0MM0N/CTURBN/ 

C0MM0N/CIQUNT/ 
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FL0RAT MATHEMATICAL MODEL 


The equations and computational procedures required in subroutine FL0RAT are 
presented in Appendix C. ■. 

CALLING SEQUENCE 

FL0RAT is called from subroutine C0NSUM with no calling arguments . Data transfer 
is accomplished through INCLUDE statements as shown in the FL0RAT listing. Upon 
completion of the calculations, program control is returned to subroutine C0NSUM. 

SIGNIFICANT VARIABLES 


Significant variables processed in FL0RAT are as follows: 


Name 

Type 

1/0 

Dimensions 

Description 

HEXHIP 

R 

I 

10,2 

Heat exchanger hot inlet pressure 

HXMRAT 

R 

I 

10,2 

Heat exchanger mixture ratio 

HEXHCT 

R 

I 

10,2 

Heat exchanger hot outlet temperature 

HEX HIT 

R 

I 

10,2 

Heat exchanger hot inlet temperature 

CPHEX 

R 

C 

1 

HEX hot gas specific heat 

ICIN 

R 

C 

1 

HEX cold fluid inlet enthalpy 

IC0UT 

R 

C 

1 

HEX cold outlet fluid enthalpy 

TITEMP 

R 

I 

2 

Turbine inlet temperature 

TOTEMP 

R 

I 

2 

Turbine outlet temperature 

WOOTI 

R 

I 

2 

Consumer flow rate 

WDHXT0 

R 

C 

2 

HEX gas generator O 2 flow rate 

WDHXTF 

R 

C 

2 

HEX gas generator H 2 flow rate 

WDTPT0 

R 

C 

2 

Turbopump GG ^ O 2 flow rate 

WDTPTF 

R 

c 

2 

Turbopump GG — H 2 flow rate 

WD0TT 

R 

0 

2 

Total flow rate each fluid 
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SUBPROGRAMS REFERENCED IN FL0RAT 


Name 

Type 

Purpose 

Reference 

DIAG 

F 

Diagnostic Print 

Page B-111 

CSUBPI 

S 

Specific heat at O 2 — H 2 Combustion 
Products 

Page B-91 

ENTH0H 

S 

Computes enthalpy of O 2 or H 2 . (Entry 
point into subroutine MATH AX . ) 

Page B-218 

RH0LIQ 

S 

Computes density of liquid O 2 or H 2 . 

Page B-262 

OPTFLT 

S 

Output txrrbine gas generator data 

Page B-226 

SUBPROGRAMS REFERENCING FL0RAT 


Name 

Type 

Purpose 

Reference 

C0NSUM 

S 

Computes consumer parameters 

Page B74 


LISTING REFERENCE PAGE 

A listing of subroutine FL0RAT will be found in Appendix B, page 149. 


FLOW CHART 

Simple structure requires no flow chart. 
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FUNCTI0N FRCC2(NE 

For a description of FRC0NE see the writeup for "G0MTRY." Page B-175 

SUBR0UTINE FRHEAD 

For a description of FRHEAD see the writeup for "SPHSEG". Page B-263 
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SUBROUTINE FJELCL 
DESCRIPTION 

The subroutine contains the equations and computational techniques required 
to perform a super-critical fuel cell system analysis. Based upon the input 
fuel cell data, the subroutine accomplishes the computation of pertinet 
system parameters and presents the calculated values in formatted output. 

The following are the principal computations contained in the subroutine. 

(a) Computes the total electrical power supplied for themission. 

(b) Computes the quantity of reactant consummed for power production for the 
mission (total and by species). 

(c) Computes the flowrate of each reactant for each duty cycle interval in 
the mission. Determines maximum flowate for each reactant for system 
sizing calculations. 

(d) Computes total heat rejected and heat rejected for each operating interval 
(duty cycle) by the fuel cells. 

(e) Computes initial reactant storage tank temperature as a function of fill den- 
sity and operating pressure. 

(f) Computes percent of usable reactant withdrawn from tanks and resultant 
density for each mission interval defined by duty cycle. 

(g) Computes for each reactant, the readout temperature, specific heat input 
(theta) and, the energy derivative (phi) for each operating duty cycle inter- 
■val. 

(h) Computes the 02 tank and H2 tank heat requirements and hot fluid flow rates 
for each duty cycle interval. 

(i) Computes the 02 and H2 conditioning heat exchanger heat and hot fluid flow 
requirements for each duty cycle interval. 

(j) Performs a heat balance to assure adequate supply of fuel cell reject heat 
to operate heat exchangers during each interval. 

(k) Computes the maximum heat flow rate required for each reactant tank and 

- _ .worst tank circulating compressor conditions. Computes weight of circulating 
compressor for each reactant tank. 

(l) Computes reserve reactant quantity required and weight of residual reactants 
at end of mission. 
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(m) Computes weight of H2 vented dtiring the mission, if venting is required. 

(n) Computes total reactants required for the mission. The reactant tank 
volumes, surface areas, and diameters. 

(o) Computes tank insulation weights, tank pressure vessel weights, tank vacuum 
jacket weights, and total reactant tank weights. Flags tank diameters when 
maximum allowable diameter is exceeded. 

(p) Computes the weight of the on-board fuel cells. 

(q) Computes the weight of all system heat exchangers and their respective 
characteristic parameters . 

(r) Additionally, the subroutine computes the individual reactant switch duty 
cycle history in detail for each duty cycle interval. 

System component weights and pressure design for the max-flow conditions are 
calculated separately by subroutein CMPCAL. 

Input data to FUELCL has previously been read-in by subroutine C0MPIL. The input 
data are stored in various sections of labeled C0MM0N previously defined by a set 
of Procedure Definition Processor (PDP) elements. The labeled C0MM0N areas used by 
FUELCD for data storage and transfer are: 

C0M5A0H/CACCUM/ 

C0MM0N/CIAPU/ 

C0M1^N/CVAPU/ 

C0MM0N/CDCYCL/ 

C0MM0N/CENG/ 

C0MM0N/CIFQEL/ 

C0MM0N/CVFUEL/ 

C0MI^N/CHEX/ 

C0MM0N/CHS0RC/ 

C0MM0N/CMATRL/ 

C0MM0N/CONST/ 

C0M^N/CPUMP/ 

C0MI^N/CTA1}K/ 

C0MM0N/CI0U1W/ 

C0MM0^I/TABL0K/ 


1-226 



LMSC-A991396 


FUELCL MATHEMATICAL MODEL 

The quatlons, mathematical logic, and procedures, necessary tables, and constants re- 
quired are presented in Appendix C. 

CALLING SEQUENCE 

Subroutine FUELCL is initiated by a simple call from subroutine CRYC0N, with no 
balling variables. Data transfer to FUELCL is accomplished through INCLUDE state- 
ments as shown in the subroutine listing. Upon completion of Hie FUELCL computations, 
sequential control is returned to subroutine CRYC0N. 


SIGNIFICANT VARIABLES 

Significant variables processed in subroutine FUELCL are as follows: 


NAME 

TYPE 

I/O 

DIMENSION 

MRIU 

R 

I 

1 

SRCFC 

R 

I 

1 

QDTFC 

R 

I 

1 

SPWTFC 

R 

I 

1 

TFCNOM 

R 

I 

2 

TF21IN 

R 

I 

1 

TF210U 

R 

I 

1 ' 

TF0FC 

R 

I 

1 

TFHFC 

R 

I 

1 

PF0FC 

R 

I 

1 

PFHFC 

R 

I 

1 

RH0FIL 

R 

I 

2 

W0VENT 

R 

I 

1 

WHVENT 

R 

I 

1 

DELTCP 

R 

I 

1 

TENV 

R 

I 

1 

PRFC0P 

- R 

I 

1 _ ^ 

P0WN0M 

R 

I 

1 

NFC0P 

I 

I 

1 

NFCSTB 

I 

I 

1 

S0PRES 

R 

I 

2 

DCYCLE 

R 

I 

100 


DESCRIPTION 

Fuell Cell Mixture Ratio 

Specific Restart Consumption 

Fuel Cell Heat Rjection Rate 

Specific Weight for Fuel Cell 

Nominal Fuel Cell Gas Feed Temp 

F21 Coolant Inlet Temperature 

F21 Coolant Outlet Temperature 

Final 02 Tank Temperature 

Pinal H2 Tank Temperature 

Final 02 Tank Pressure 

Final H2 Tank Pressure 

Reactant Fill Densities 

Estimated 02 Vent Quantity 

Estimated H2 Vent Quantity 

Tank Circulating Con^jressor Delta-P 

Fuel Cell System Environmental Temp 

Fuel Cell Operating Pressure 

Nom. Fuel Cell Operating Power Level 

Number of Fuel Cells Operating 

Number of Fuel Cells Standby 

Reactant Tank Operating Pressures 

Fuel Cell Operating + Non-Operating Time 
Intervals 
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NAME 

TYPE 

ll± 

DIMENSION 

DESCRIPTION 

PKW 

R 

I 

100 

Constant Power Levels for Operating Intervals 

PISETl 

R 

I 

1 

02 Tank Lower Pressure Limit Setting 

PIBET2 

R 

I 

1 

H2 Tank Lower Presstire Limit setting 

VJANUL 

R 

I 

2 

Fluid Tank Vacuum Jacket Annuli (inches) 

TKMXDI 

R 

I 

2 

Fluid Tank Maximum Diameters (inches) 

P0WT0T 

R 

0 


Total Electric Power Supplied for Mission 

WRF0RP 

R 

0 

1 

Wgt Reactants Consumed for Power Mission 

WRP 

R 

0 

12 

Wgt Reactants Consumed for Power Each Interval 

W0C0NS 

R 

0 

1 

Wgt 02 Consumed for Power - Mission 

WHC0NS 

R 

0 

1 

Wgt H2 Consumed for Power - Mission 

W0RFP 

R 

0 

12 

Wgt 02 for Power - each duty cycle interval 

WHEIFP 

R 

0 

12 

Wgt H2 for Power - each duty cycle interval 

WDTFC0 

R 

0 

12 

02 Flow Rate - each duty cycle interval 

WDTPCH 

R 

0 

12 

H2FLow Rate - each duty cycle interval 

PKWMAX 

R 

0 

1 

Max. Power drawin in any interval 

WPTMX 

R 

0 

•2 

Max Flow Rate Reactants - in any interval 

WD0TI 

R 

0 

2 

Max. Flow Rates per Second for Component Sizir. 

TMF21 

R 

0 

1 

Mean Temp of F21 Hot fliiid available 

QE21 

R . 

0 

. 1 - 

Specific Heat of F21 Hot Fluid 

CF21 

R 

0 . 

. 1 

Heat Value of F21- Hot Fluid per lb. 

QAVAIL 

R 

0 

12 

Heat (BTU's) available from F21 Hot Fluid. 

WDTI21 

R 

0 

12- 

Flow Rate of F21 Hot Fluid 

QPCO?OT 

R 

0 

1 

Total BTU's available from F21 Hot Fluid 

PC0PC 

R 

I 

1 

Operating Pressure 02 Reactant Tank 

TEMP02 

R 

. 0 

1 

, Initial Temp of 02 Reactant in Tank 

PCHFC 

R 

. I 

1 , 

Operating Pressure H2 Reactant Tank 

TEMPH2 

R 

0 - 

1 

Initial Temp of H2 Reactant in Tank 

TK02WD 

^R 

-0 

12 , 

02 Reactant Withdrawn - each duty cycle inters 

TKH2WD 

R 

0 : 

12. 

H2 Reactant Withdrawn - each duty cycle inter^ 

PCWI)02 

R 

0. 

12 

Percent 02 Withdrawn - each duty cycle intervE 

PCWDH2 

R 

0 

12 . 

Percent H2 Withdrawn - each duty cycle intervE 

RH0T02 

R 

0 

12 

Density of 02 in Tank - each duty cycle interi 

TK0 

R 

0 

12 , 

02 Temp in Tank - each duty cycle interval 

TKH' 

R 

0 

12 

H2 Temp in Tank - each duty cycle interval 


1-228 



LMSC-A991396 


NAME 

TYPE 

1/0 

DIMENSION 

DESCRIPTION 

DQDW0 

R 

0 

12 

Heat Input (BTC/lb) to 02 - each duty cycle inter 
val 

DQDWH 

R 

0 

12 

Heat Input (BTU/lb) to H2 - each duty cycle inter 
val 

QI0DTR 

R 

0 

12 

Heat Re4'd for 02 Heat Exchanger-each interval 

WDTIF0 

R 

0 

12 

F21 Flow Rate for H2 Heat Exchanger- each interval 

QIHDTR 

R 

0 

12 

Heat Req'd for H2 Heat Exchanger-each interval 

WDTIFH 

R 

0 

12 

F21 Flow Rate for 0 Heat Exchanger-each interval 

Q20DTR 

R 

0 

12 

Heat Required for 02 Tank Heat Exchanger-each 
interval 

Q2HDTR 

R 

0 

12 

Heat Req'd for H2 Tank Heat Exhanger -each in- 
terval 

WDTR2F0 

R 

0 

12 

F21 Flowrate for 02 Tank Heat Exchanger -each 
interval 

WDT2FH 

R 

0 

12 

121 Flowrate for H2 tank heat exchanger - each 
interval 

PHIF02 

R 

0 

12 

Energy Derivative for 02 In Tank - each interval 

PHIFH2 

R 

0 

12 

Energy Derivative for H2 In Tank - each interval 

QSUMR 

R 

0 

12 

Sum of all Heat Reqmts - each interval 

D0AMFT 

R 

0 

12 

Difference between Available Heat and Heat Reqd 

QT0TR 

R 

0 

1 

Total Heat Reqd over mission span 

QEXCES 

R 

0 

1 

Difference Between Total available and total 
required 

WF21MX 

R 

0 

1 

Max. Flowrate of F21 hot fluid 

D0AMIN 

R 

0 

1 

Minimum value of D0ANEr 

TK0MAX 

R 

0 

1 

Maximum value of 02 Tank Temp 

TKHMAX 

R 

0 

1 

Maximum value of H2 Tank Temp 

QMXTK0 

R 

0 

1 

Max. Heat Reqmt for 02 tank 

QMXTKH 

R 

0 

1 

Max. Heat Reqmt for H2 Tank 

PRFCMN 

R 

I 

2 

Minimum Reactant Tank Pressures 

WDTCF0 

R 

0 

1 

02 Tank Recirculation Max. Flow Rate 

WDTCFH 

R 

0 

1 

H2 Tank Recirculation Max. Flow Rate 

W0CMP 

R 

0 

1 

Weight of , 02 Tank Circxalating Compressor 

WHCMP 

R 

0 

1 

Weight of H2 Tank Circulating Compressor 

WCIRCP 

R 

0 

2 

Variable which saves Circulating Compressor Wgts 

P0WMAX 

R 

0 

1 

lOC^ Power over Mission Span 

WRMAX 

R 

0 

1 

Reactant Based upon 20^ of P0WMAX 

WRRSRV 

R 

0 

1 

Total Reserve Reactant (lbs) 


1-229 



LMSC-A991396 


NAME 

TYPE 

I/O 

DIMENSION 

W0RSRV 

R 

0 

1 

WHRSRV 

R 

0 

1 

WIRES 

R 

0 

2 

VOLTNK 

R 

0 

2 

AREATK 

R 

0 

2 

QLK(2( 

R 

0 

12 

QLKH 

R 

0 

12 

QLEAK0 

R 

0 

1 

QLEAKH 

R 

0 

1 

SNBAR 

R 

I 

2 

SITHIK 

R 

I 

2,1 

WVH0 

R 

0 

1 

WVHH 

R 

0 

1 

WHVENT 

R 

0 

1 

WRT0TL 

R 

0 

2 

DIATK 

R 

0 

2 

TIWT 

R 

0 

1 — 1 

•s 

CVJ 

DIAVJ 

R 

0 

2 

SMTYPE 

I 

I 

2, 1 

RH0PTU 

R 

0 

2 

WTPVT 

R 

0 

2 

WTVJ 

R 

0 

2 

WTT0T 

R 

0 

2 

FCWGT 

R 

0 

1 

WD0TK 

R 

0 

10,2 

UC0DE 

R 

I 

10, 2 

HEXHIT 

R 

0 

10,2 

HEXCIT 

R 

0 

C\J 

o 

H 

HEXH0T 

R 

0 

10, 2 

HEXC0T 

R 

0 

10, 2 

HEXC0P 

R 

" 0 

C\J 

o 

H 

HEXCIP 

R 

. 0 

10, 2 

HSQREQ 

R 

0 

10, 2 

flSGCPE 

R 

0. 

H 

O 

ro 

HSGT0T 

R 

0 

10,2 

WHXT0T 

R 

0 

10, 2 


DESCRIPTION 

Total 02 Reserve Reactant (lbs) 

Total H2 Reserve Reactant (lbs) 

Residual Reactants in Tanks - end of missioi 
Volume of Reactant Tanks 
Surface Area of Reactant 

Heat Leak into 02 Tank -each non-oper inter" 

Heat Leak into H2 Tank - each non-oper inte: 

Total Heat Leak into 02 Tank 

Total Heat Leak into H2 Tank 

Number of Insulation Layers per Inch Thick 

Insulation thickness in inches 

Wgt Vented H2 Req'd to Cool 02 Tank 

Wgt Vented H2 req'd to Cool H2 Tank 

Total Wgt of Vented H2 

Total Wgt of Reactants Loaded in Tanks 

Diameter of Reactant Tanks 

Tank Insulation Weights 

Diameter of Tank Vacuum Jackets 

Tank Material Designation 

Tank Material Density/Ultimate Stress 

Wgt of Tank Pressure Vessels 

Wgt of Tank Vacuum Jackets 

Total Weight of Each Tank Assy 

Total Weight of Fuel Cells 

Cold Fluid Flow Rate 

Heat Exchanger Code Designation 

Hot Fluid Inlet Temp 

Cold Fluid Inlet Temp 

Hot Fluid Outlet Temp 

Cold Fltiid Outlet Temp 

Cold Fluid Outlet Pressure 

Cold Fluid Inlet Pressure 

Heat Source BTU's Required 

Heat Source Specific Heat 

Total Heat Trim Heat Source 

Heat Exchanger Weight 
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•ilAME 

TPPE 

111 . 

DIMENSION 

DESCRIPTION 

IsETI 

f 

R 

0 

1 



Lower Limit 02 Tank Pressure Setting 

|SET2 

R 

0 

1 

Lower Limit H2 Tank Pressure Setting | 

|tamki 

R 

0 

1 

02 Tank Pressure at Sub -Interval Time Point 

hrAM2 

i 

R 

0 

1 

H2 Tank Pressure at Sub-Interval Time Point 

pM 

R 

0 

12 

Time Duration of a Duty Cycle Interval 

jroT03o 

R 

0 

1 

Subdivided 02 Flowrate for 10 min Period 

bTH30 

R 

0 

1 

Subdivided H2 Flowrate for 10 min Period 

;jlTP 

I 

0 

1 

Number of Time Sub-intervals in duty cycle 
interval 

flME 

R 

0 

1 

Time Sub-intervals in minutes 

®0DP 

R 

0 

1 

02 Tank Depletion (lbs) 

;JKSDP 

R 

0 

1 

H2 Tank Depletion (lbs) 

fC0XW 

R 

0 

1 

Percent 02 withdrawn from Tank 

klH2W 

R 

0 

1 

Percent H2 withdrawn from Tank 

^RH0 

R 

0 

1 

Density of Remaining 02 in Tank 

IRH0 

R 

0 

1 

Density of Remaining H2 in Tank 

iXTEM 

R 

0 

1 

Temp of remaining 02 in Tank 

I2TEM 

R 

0 

1 

Ten^) of remaining H2 in Tank 

)QDM1 

R 

0 

1 

Heat Input to Remining 02 in Tank 

)QDM2 

R 

0 

1 

Heat Input to Remining H2 in Tank 

)PDU1 

R 

0 

1 

Energy Deviation of 02 remining in Tank 

}PDU2 

R 

0 

1 

Energy Derivation of H2 remining in tank 

acuM 

R 

0 

1 

Cumulative Heat Reqd in 02 Tank 

'aCUM 

R 

0 

1 

Cumulative Heat Reqd in H2 Tank 

|Em0 

R 

0 

1 

Volume Expansivity of 02 in Tank 

pETAH 

R 

0 

1 

Volume Expansivity of H2 in Tank 

Ielpi 

R 

0 

1 

02 Tank Pressure Drop in Interval ITIM 

|eLP2 

R 

0 

1 

H2 Tank Pressure Drop in Interval ITIM 

|tR0N1 

R 

0 

1 

Time (min) for Heat Source to be 0N during 
ITIM period 

;;|TR0E2 

R 

0 

1 

Time (min) for Heat Source to be 0N duringITIM 
period 

iiMMl 

R 

0 

1 

Equals QICUM (Used to Calc. HTR0NI) 

:|eam2 

R 

0 

1 

Equals Q2CUM (Used to Calc. HTR0N2) 


I 

0 

1 

02 Heater Cycle Counter 

i 

I 

0 

1 

H2 Heater Cycle Counter 
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SUBPROGRAM REFERENCED IN FUELCL 


NAME 

TYPE 

PURPOSE 

REFERENCE 

PAGE 

F 

Controls Page & Line Count -Output 

Page B-23 

CSPF21 

F 

Calculates Cp for F21 Hot Fluid 

Page B-87 

OXENTH 

F 

Calculates 02 Enthalpy 

Page B-23 

HYENTH 

F 

Calculates HPEnthalpy 

Page B-19 

FINTAB 

S 

Finds Designated Table of Data 

Page B-14 

MIPE 

F 

Table Data Extraction 

Page B-22' 

CSUBV 

F 

Calculates Cv for Desired Fluid 

Page B-931 

ZFIND 

S 

Compute Compressibility for H2 

Page 1 

ZGET 

■ F 

Computes Compressibility for 02 

Page B-33| 

PHTH^N 

S 

Computes THETA and PHI for 02 

Page b-33 

AMINI 

F 

Finds Minimum of two REAL values 

System Lil 

AMAXI 

F 

Finds Maximum of two REAL Values 

System Lil 

densjzSn 

S 

Calculates Density for 02 and N2 

Page B-lOi 

GSDNBT 

s 

Calculates Gas Density for H2 

Page B-21! 

CSUBP 

s 

Calculates Cp for Desired Fluid 

Page B-88 

TC0ro) 

s 

Computes thermal Conductivity for Insulation 

Page B-29f 

SORT 

F 

Computes Square Root of Variable 

^stemRot 

HEKF21 

S 

Computes Heat Exchanger Weight for Desired 
Fluid 

Page B-18« 

!•; 

BETAB 

S 

Computes Volume Expansivity (Beta) for 
Desired Fluid 

Page B-25' 

0TPHXF 

S 

Output Subroutine for Freon Heat Exchangers 

Page B-22( 

SUBPROGRAMS 

REFERENCING FUELCL 

‘ 

NAME 

TYPE 

PURPOSE 

reference' 

CRYC0N 

S 

Sequential Control of Analysis 

Page B-85 


LISTING REFERENCE PAGE 

A listing of subroutine FUEIOL will be found in Appendix Page 152, 

FLOW CHART 

<•. . 

The flow chart for FUELCL is presented in Figure 1.9-7. , 

r 


1-232 


€E2-T 



LMSC-A991396 



















Page intentionally left blank 


^ /^J~S /V " c J a ^ /9zi- /v^y^ 7~ £ X- 

£ /2S. 


/• ^ a^ T^^K A/Itjo ^ued. ee-d^d. 

2/ z~^y*'>r y^/«y^ C£-dd. 

3, C>2. ^ ^ y>r«/K. y9-^0 Zy^yuM" 

y /3^^*^^£y*y /^2. ^ Z~y^Cdy^y>Za/t /)/ya 7~y9yi\ydf 

(//Sf ^,y?, zyyrjerz/) 

Ot/T /^lyT" /■/ £ y^ y ^’Aryy^y^y^^ye'fZ yO y~y^ 

y^d y cj yo r yz X /=r 


C" <?y*^ />yy 

y^y^yO 



y^y' y9 r yr y^ /?dyry 


y yyzsKO€/ 

cycd. £ 


£^rjy y A y*^a y*yyy Zy^ y ^ r£ yi^ ^y die. 

^ ^ z y^ z* y yy ^ 4. 4. ^ y y^ ^ / 

y3 y>yi e (yy**ry^) 


^ O^ tyyZZyfd dtiyyyy 
Z^y yyy /> yeyff^-yy 




/« - y>< 


Oi r^y^£. 

y/^ zyy*y /». 


- 41 9/^ y*yl 

/■/^ - A ^yji y^ 

- A Z>/Ai/ 

z*,^ - 41 ^X41 */ 

O^ - 7~y>yyy y^yy Zy 
yy ^ - z~yVy*-y< y^y^ys 

C7^ Q • yp£<?’ti 

y/^ Ci . y?£^'^ 

Q2 “ ^^^y} ''•«■ ^ 

Z/^. - yf/y^y^yy^ Oyy 


c 


± 


/?£ Zcyyyy 


3 


("yyfZyy,) 

C yfxy^. ) 


Fig, 1.9-7 Flowchart for Subroutine FUELCL 
(Sheet 2/2) 
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SUBROUTINE GASGEN 
DESCRIPTION 


Subroutine GASGEN computes the weight of a gas generator employed on a primary 
heat source for a cryogen heat exchanger. The routine additionally considers the 
cases where all or a part of the thermal energy required may be derived from waste 
heat rejected from another system. 

The principal computations performed by GASGEN are as follows: 

(a) Computes the weight of a gas generator functio ning as the only heat source 
for a cryogen heat exchanger . 

(b) Computes the thermal energy required by a heat exchanger where waste 
heat is the only heat source. 

(c) Computes the weight of a gas generator which supplies makeup thermal 
energy to satisfy a deficit in available waste thermal energy. 

The basic gas generator weight equations employed in GASGEN were derived from 
Reference 1.9-3. 

Input data for use in GASGEN is derived from on-going calculations performed in the 
subprograms which call GASGEN through the labeled C0MM0N storage blocks. The 
labeled C0MM0N storage areas employed by GASGEN for data storage and transfer 
are as follows: 

C0MM0N/CDCYC L/ 

C0MM0N/CHEX/ 

C0MM0N/CHS0RC/ 

C0MM0N/CTANK/ 

GAS GEN MATHEMATIC A MODEL 

The GASGEN math model presenting the equations and pertinent data is presented in 
Appendix C. 
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CALLING SEQUENCE 

Subroutine GASGEN is called with two argments, JX and IGAS. Argument JX is the 
heat exchanger position-in-array index which directs all related data to the proper 
array position reserved for a particular heat exchanger. 

Argument IGAS specifies the fluid processed by the heat exchanger imder consideration. 
Input data, as stated above, is transferred through C0MM0Nby the use of INCLUDE 
statements to bring in specific common blocks. 

SIGNIFICANT VARIABLES 


Significant variables employed in the routine are as follows: 


Name 

Type 


Dimension 

Description 

JX 

I 

I 

1 

Heat exchanger data array index 

IGAS 

I 

I 

1 

Index of fluid under consideration 

HSGSUM 

R 

c 

1 

Summed thermal energy required 
over mission 

WGGFU 

R 

c 

10,2 

Thermal energy available from 
waste heat over mission 

WGGFX 

R 

c 

10,2 

Thermal energy to be supplied by 
gas generator 

HSWGHT 

R 

0 

10,2 

Gas generator weight 

HSASSY 

R 

0 

11,2 

Gas generator plus heat exchanger 
weight 

HSQRQD 

R 

0 

10,2 

Waste thermal energy available 

HSGCPE 

R 

0 

10,2 

Specific heat of waste hot fluid 


SUBPROGRAMS REFERENCED IN GASGEN 
None 

SUBPROGRAMS REFERENCING GASGEN 


Name 

Type 

Purpose 

CMPCAL 

S 

Configuration Analysis 

APUSUP 

S 

APU Supercritical Analysis 


Reference 

Page B-50 
Page B-8 
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LISTING REFERENCE PAGE 

A listing of subroutine GASGEN will be found in Appendix B, page 172. 

FLOW CHART 

None 
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Subroutine GETC0N 
DESCRIPTION 


Subroutine GETC0N unpacks the word in the first column of the configuration array 
C0NFIG designated by the cabling variable IDX. The first column of CONFIG contains 
data packed by subroutine ST0C0N and is in the format described in the writeup for 
that subroutine . GETC0N impacks the six bytes of data and stores it in the same order 
in the six word array ICNFIG. 

Labeled Common 

C0MM0N/CCNFIG/ 

C0MM0N/CI0UNT/ 

Mathematical Model for GETC0N 

None 

Calling Sequence 

ST0C0N is called by CMPCAL, LSSCMP and 0TRTNS and has one variable in its 
calling sequence. The variable is the location index for the component storage array. 
All other data is transferred thru labeled common CCNFIG. 

Significant Variables 


Name 

Type 

1/0 

Dimension 

Description 

CONFIG 

I 

I 

100,7 

Packed data stored in first column 
of this array 

ICNFIG 

I 

0 

6 

Output array of impacked data 

IDX 

I 

I 

1 

Location index in the array C0NFIG 
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Subprograms Referenced by GETC0N 

Name Type Purpose Reference 

IPBYTE F Byte Manipulation Routine LMSC Systems Routines 


Subprograms Referencing GETC0N 


Name 

Type 

Purpose 

Reference 

CMPCAL 

S 

Computes Weight, Pressure, etc. , for given 
components 

Page B-50 

LSSCMP 

S 

Component configuration processing for EC/LSS 

Page B-208 

0TRTNS 

s 

Main output routine for system 

Page B-226 

Listing Reference 




A listing of GETC0N can be found in Appendix B , Page 174. 
Flow Chart 


None 


1-241 


LOCKHEED MISSILES Sc SPACE COMPANY 



LMSC-A991396 


FUNCTION G0MTRY 
DESCRIPTION 


The subprograms labeled G0MTRY on its control card is actually a set of eight fvmction 
subprograms using entry points imder the heading function "CONE". The entry point 
names and their use are: (1) " CYLNDR" calculates volume of a right circular cylinder 
given a height and radius; (2) " CYLSPH" calculates the volume between a cylinder 
and an ellipsoid which has been inserted in the top end , inputs are height (same as axis 
of rotation for the ellipsoid) and radius; (3) " FRC0NE" calculates the volume of a 
frustrum of a right circular cone , given the height and the radius of the top and bottom 
ends; (4) " HSPHER" calculates the volume of half of an ellipsoid or hemisphere 
given the length of the semi-major and semi-minor axes (these are equal for a 
hemisphere; (5) " SPHERE" calculates volume of an ellipsoid or sphere given the 
lengths of the axes; (6) " ARACYL" calculates the area of a cylinder excluding the 
ends —given height and radius; (7) " AREAFR" computes the area of a frustrum of a . 
cone excluding the "ends" - given the height and radius of the top and bottom; 

(8) " ARSPHR" calculates the area of half of an ellipsoid given the length of major or 
minor axes — (a hemisphere if axis lengths are same) . 

Labeled Common Used 

C0MM0N/C0NST/ 

Mathematical Model of "G0MTRY" 


For equations used, see Appendix C. 

Calling Sequence 

Each function entry point has a calling sequence as follows: 

CYLNDR (Radius , Height) 

CYLSPH (Radius on axis of rotation, radius perpendicular to first) 
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FRCONE 

HSPHER 

SPHERE 

ARACYL 

AREAFR 

ARSPHR 


(Radius of top , Height , Radius of Bottom) 

(Radius on rotation axis , radius perpendicular to first) 
(Radius on rotation axis, radius perpendicular to first) 
(Radius, Height) 

(Radius of Top , Height , Radius of Bottom) 

(Radius on rotation axis , radius perpendicular to first) 


Significant Variables 


Name 

Type 

I/O Dimension 

Description 


C(6NE 

R 

0 1 

The output volume or area of the function 

E 

R 

I 1 

Eccentricity of ellipse 


H 

R 

I 1 

Height of cylinder or frustrum of cone 

R 

R 

I 1 

Radius of cylinder , top of frustrum , or ellipse 

RZ 

R 

I 1 

Radius of bottom of frustrum 


RR0T 

R 

I 1 

Radius along rotation axis 


Subprograms Referenced By G0MTRY 



Name 

Type- 

Purpose 


Reference 

AL0G 

F 

Calculates natural log 

Univac 1108 system 

ASIN 

F 

Calculates arc sine 


Univac 1108 system 

S0RT 

F 

Calculates spareroot 


Univac 1108 system 

Subprograms Referencing G0MTRY 



Name 

Type. 

Purpose 


Reference 

AFUNC 

F 

Controls calculation of areas. 

Page B-299 

TNKWTA S 

Controls calculation of tank geometry. 

Page B-303 

VFUNC 

F 

Controls calculation of volumes. 

Page B-299 
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Listing Reference 


A listing of "G0MTRY" can be found in Appendix B, Page 175. 


Flow Chart 


A flow chart of ’'G0MTRY" is presented in Fig. 1. 9-8. 
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Fig. 1.9-8 Flowchart for G0MTRY 
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Fig. 1.9-8 Flowchart for GrC^MTRY (Continued)' 
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SUBR0UTINE HEATEX 
DESCRIPTION 


This subroutine computes design parameters for sizing a heat exchanger , given the 
inlet and outlet temperatures and pressvires for the hot and cold fluid sides, the flow 
rate for the cold fluid and the fluid type. However, in order to properly size the heat 
exchanger, it may be necessary to make changes to some of the input parameters, except 
that the cold fluid outlet temperature and pressure, which are set by previously calculatec 
system parameters , cannot be changed. 

The HEATEX subroutine calculates pressure and temperature drops from the input 
and checks that the pressure drops are within operating range and checks for 
condensation at the hot fluid outlet (so that freezing will not occur). Next, the heat 
exchanger is subdivided into subunits according to the heat transfer range designated 
by the input parameters. The subunit types are: (1) boiling subunit; (2) supercritical 
subunit; (3) parallel flow subunit and (4) counterflow subunit. After the proper sub- 
unit types have been determined the routine proceeds to design each one by calculating 
the number of transfer units (N^) necessary, the thermal conductance ratios (TCR), 
the UA and (W/UA) for each subunit. The weight of each subimit is then computed from 
these values and the total heat exchanger weight is the sum of the subunit weights or 
five poimds whichever is greater. The outputs from HEATEX are the weight and those 
input parameters which have been changed in the design process. 

Labeled Common Used 

C0MM0N/CHEX/ 

C0MM0N/CIQUNT/ 

C0MM0N/TAB L0K/ 
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Mathematical Model for HEATEX 


The equations used by HEATEX may be found in Appendix C . 


Calling Sequence 

HEATEX is called by three subroutines and it has fourteen variables in its calling 
sequence, thirteen are input and one is output, however, some of the input variables 
may be changed by the design process. 

Significant Variables 


Name 

-Type - 

1/0 

Dimension 

CMAX 

R 

I 

1 

CMIN 

R 

I 

1 

CR 

R 

I 

1 

Die 

R 

I 

1 

DIH 

R 

I 

1 

DPC 

R 

I 

1 

DPH 

R 

I 

1 

DTC 

R 

I 

1 

DTH 

R 

I 

1 

EEEC 

R 

I 

1 

EEEH 

R 

I 

1 

EESUM 

R 

I 

1 

EDIC 

R 

I 

1 

EDIH 

R 

I 

1 

EDPC 

R 

I 

1 

EDTC 

R 

I 

1 

EE MX 

R 

I 

1 

EHN 

R 

I 

1 

EI0T 

R 

I 

1 

ICIN 

R 

I 

1 

IC0UT 

R 

I 

1 

IGAS 

I 

I 

1 

ISU 

I 

I 

1 

JHEX 

I 

I 

1 

NCVG 

I 

I 

1 

NTU 

R 

I 

1 

0E 

R 

I 

1 

OER 

R 

I 

1 


Description 

Maximum capacity rate 

Minimum capacity rate 

Capacity rate ratio 

Change in enthalpy cold side 

Change in enthalpy hot side 

Pressure drop cold side 

Pressure drop hot side 

Temperature change cold side 

Temperature change hot side 

Cold side effectiveness 

Hot side effectiveness 

Sum of effectiveness (E EEC + EEEH) 

Subunit change in enthalpy cold side 

Subunit change in enthalpy hot side 

Subunit pressure drop cold side 

Subunit temperature change cold side 

Subimit effectiveness 

Subunit enthalpy at inlet cold side 

Subunit enthalpy at outlet cold side 

Enthalpy at inlet cold side 

Enthalpy at outlet cold side 

Eluid type 1 = O 2 , 2 = H 2 

Index of DO -LOOP for subunit design 

Heat exchanger ID number 

Convergence flag = 0 converged ±0 

not converged 

Number of transfer units 

Oxidizer to fuel ratio. Set = 1 

Oxidizer to fuel ratio input but not used 
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Name 

Type 

1/0 

Dimension 

PCIN 

R 

I 

1 

PC0UT 

R 

I 

1 

PHIN 

R 

I 

1 

PH0UT 

R 

I 

1 

PSAT 

R 

I 

1 

SDPC 

R 

I 

1 

TCIN 

R 

I 

1 

TC0UT 

R 

I 

1 

TCSAT 

R 

I 

1 

TfflN 

R 

I 

1 

TH0UT 

R 

I 

1 

THSAT 

R 

I 

1 

T0TWHX 

R 

0 

1 

TCSAT 

R 

I 

1 

UA 

R 

I 

1 

WD0TC 

R 

I 

1 

WD0TCI 

R 

I 

1 

WD0TH 

R 

I 

1 

WD0THI 

R 

I 

1 

W(2(UA 

R 

I 

1 

WTHX 

R 

I 

1 

Subprograms Referenced By HEATEX 


Description 

Inlet pressure cold side 

Outlet pressure cold side 

Inlet pressure hot side 

Outlet pressure hot side 

Saturation pressure at hot fluid outlet 

Sum of subimit pressure drops 

Inlet temperature cold side 

Outlet temperature cold side 

Saturation temperature at cold outlet 

pressure PC0UT 

Inlet temperature hot side 

Outlet temperature hot side 

Saturation temperature at a pressure PSA' 

Total heat exchanger weight (pounds) 

Saturation temperature at cold outlet 

pressure PC0UT 

UA 

Flow rate of cold fluid 
Same as WD0TC 
Flow rate of hot fluid 
Same as WD0TH 
Weight factor 

Weight of a partictilar subunit 


Name 

Type 

Fhirpose 

Reference 

AL0G 

F 

Calculates natural log 

UNIVAC 1108 
System 

ENTH0H 

S 

Calculates enthalpy of O 2 or H 2 

Page B-218 

FINTAB 

S 

Locate a designated table 

Page B-147 

MIPE 

F 

Performs interpolation of a given table 

Page B- 221 

TCRCAL 

S 

Calculate maximum and minimum TCR 

Page B-218 

TCRCLC 

S 

Calculates thermal conductance ratio 

Page B-218 

TCRL0W 

S 

Lowers calculated TCR value 

Page B-218 

TCRRAZ 

S 

Raises calculated TCR value 

Page B-218 

TSAT 

F 

Calculates saturation temperature 

Page B-308 

W0UACL 

S 

Calculate (W/UA) 

Page B-218 
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Subprograms Referencing HEATEX 

Reference 
Page B-8 

Page B-50 
Page B-277 

Listing Reference 

A listing of HEATEX may be found in Appendix B, Page 177. 

Flow Chart 


Name 

APUSUP 

CMPCAL 


Type 

S 

S 


Purpose 

Performs APU supercritical calculations 

Performs component configuration 
calculations 


TANK 


Tank pressure, weight duty cycle history 


Flow charts for HEATEX are presented in Fig. 1.9-9 and Fig. 1.9-10. 
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Fig. 1.9-9 Flowchart for HEATEX (Continued) 


1-357 





























LMSC-A991396 



Fig. 1.9-10 Flowchart for HEATEX (Continued) 
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SUBROUTINE HEXELC 
DESCRIPTION 

This subroutine essentially designs an electrically heated heat exchanger based upon 
two preset design configurations incorporated in the calculational technique. The 
concepts employed for the heat exchangers are based upon a NASA funded study 
conducted by the AiResearch Mfg Company (Ref. 1.9-7). The applicable portions of 
the study are discussed in the HEXELC math model. The siabroutine incorporates 
equations and supporting table data permitting the application of the heat exchanger 
concepts to the use of three cryogen fluids; oxygen, hydrogen and nitrogen. Input 
variable values which must be supplied to the subroutine are: 

Fluid type; O 2 , H 2 and N 2 
Inlet Gas Temperatime 
Outlet Gas Temperature 
Inlet Gas Pressure 
Thermal Output Rating of Heater 
Inlet Line Diameter 
Gaseous Fluid Flowrate 
Gaseous Fluid Density 
Fin Requirement Index 

Upon completion of the calculations the subroutine returns as output the following 
variable values: 

Heat Exchanger Weight 
Heat Exchanger Pressure Drop 
Overall Heat Transfer Coefficient 
Heat Exchanger Diameter 
Heat Exchanger Length 

< 

The input data for HEXELC is provided through the calling arguments. Access to 

common storage is required only for input -output control and table access control 

variables. The labeled C0MM<;2fN blocks used by HEXELC ARE: 

C0MM0N/CI0UNT/ 

C0MM0N/TABL0K/ 1-260 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


HEXELC MATHEMATICAL MODEL 

The heat exchanger concepts, mathematical procedures, equations and necessary table 
data and constants required are presented in Appendix C. 

CALLING SEQUENCE 

Subroutine HEXELC is initiated by a call from subroutine ECLSS with fourteen (14) 
calling arguments. These arguments are defined below. Data transfer to subroutine 
HEXELC is accomplished via nine of the calling arguments and the two INCLUDE 
statements as shown in the subroutine listing. Upon completion of the required 
computations, program control is returned to subroutine ECLSS. 

SIGNIFICANT VARIABLES 


Significant variables processed by subroutine HEXELC are as follows: 


Name 

Type 

ize_ 

Dimension 

NGAS 

I 

I 

1 

TIN 

R 

I 

1 

T0UT 

R 

I 

1 

PIN 

R 

I 

1 

HF 

R 

I 

1 

LDIA 

R 

I 

1 

WD0T 

R 

I 

1 

RH0GAS 

R 

I 

1 

IFIN 

I 

I 

1 

HEXWGT 

R 

0 

1 

DELTAP 

R 

0 

1 

U0A 

R 

0 

. 1 

DH 

R 

0 

1 

HLNGH 

R 

0 

1 

PI 

R 

D 

1 

TREF 

R 

D 

1 

PCI 

R 

D 

1 

PC2 

R 

D 

1 

PC 3 

R 

D 

1 


Description 

Fluid I. D.; 1 = Og; 2 = 18 = Ng 

Fluid inlet temperature 

Fluid outlet temperature 

Fluid inlet pressure 

Thermal output rating of heater 

Inlet line diameter 

Fluid flowrate 

Fluid inlet density 

Anti -Burnout fin index; O = no fins; 

1 = with fins . 

Heat exchanger weight 

Heat exchanger pressure drop 

Overall thermal conductance of heat 

exchanger surface 

Diameter of heat exchanger 

Heat exchanger length 

3.141593 

Reference temperature of heater thermal 
output rating ' 

Oxygen critical pressure 
Hydrogen critical pressure 
Nitrogen critical pressure 
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Name 

Type 

I/O 

Dimension 

MASVEL 

R 

C 

1 

NTBID 

I 

D 

50 

XTAB 

R 

D 

7 

TMEAN 

R 

C 

1 

CPBAR 

R 

C 

1 

B0NE 

R 

C 

1 

BPID 

R 

C 

1 

PHI0NE 

R 

C 

1 

PHITW0 

R 

C 

1 

P0PC 

R 

C 

1 

BETA 

R 

C 

1 

FINWGT 

R 

C 

1 

SIGDLP 

R 

C 

1 

DELTAP 

R 

0 

1 


Description 

Fluid mass velocity 

Table data index 

Table lookup index 

Mean temperature of fluid 

Mean specific heat of fluid 

Heater thermal power per unit area 

(2.0 * B0NE/PI+DH) 

(T2 _ t2 )/BPID 

T2 

(1“ ^ /U0A) 

Ratio of pressure to critical pressure 
for fluid 

Correction factor for PHITW0 
Weight of anti -burnout fins — if required 
Normalized pressure loss due only to 
skin friction and volume expansion in 
annular heat exchanger passages 
Normalized pressure loss corrected for 
fluid density — to give pressure drop 
through exchanger 


SUBPROGRAMS REFERENCED IN HEXELC 


Name 


Ty pe 


Purpose 


FINTAB 

MIPE 


S 

F 


Finds designated table of data 
Table data extraction 


CSUBP S Computes specific heat of designated 

fluid at specified temperature and 
pressvire 


Reference 

Page B-147 
Page B-221 


Page B-88 


SUBPROGRAMS REFERENCING HEXELC 


Name Type 

Purpose 

Reference 

ECLSS S 

Life Support System Analysis 

Page B-122 


1-262 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


LISTING REFERENCE PAGE 


A listing of subroutine HEXELC will be found in Appendix B, page 184. 


FLOW CHART 


A flow chart for subroutine HEXELC is presented in Fig. 1.9-11. 
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SUBROUTINE HEXF21 
DESCRIPTION 


This subroutine is based upon a study of FREON-21 cryogenic heat ex- 
changer parameters performed by the AIRESEARCH Mfg. Co. (Ref. 1.9-8). 
The study performed a matrix of heat exchanger parametric data which 
was reduced to a set of tables presenting the heat transferred for a 
set of fixed hot side conditions with variable cold side conditions , 

for both hydrogen and oxygen fluids. The tables were further re- 

*■ 

grouped by fluid type to reduce the data search yariables to three key 
variables; fluid type, quantity of heat transferred, and cold fluid 
inlet pressure. The regrouped data readily covered the ranges of 
interest and yielded an orderly progression of heat exchanger weight 
as a function of quantity of heat to be transferred and cold fluid 
pressure . 

The subroutine thus became a data sorting routine, using a series of 
IF statement checks to arrive at a heat exchanger weight for a given 
pressure range and heat transfer requirement range, for the specified 
cold fluid. 

FREON Heat Exchanger Concept Considerations 

The heat exchanger concepts considered in the referenced study (Ref. 
1 . 9 - 8 ), utilized stainless steel, shell-over-tube matrices of brazed 
and welded construction. In all cases, the FREON-21 was multipassed 
outside of the tubes in an overall counterflow arrangement. Figure 
1 . 9-12 illustrates the construction of a typical concept exchanger, 
Because of the requirement for pressure containment considerations 
of cryogen fluids above 450 psia, (and zero leakage requirement), 
tubular construction was selected over plate-fin construction. Another 
contributing influence was the typically small size of the units. 
Stainless steel was selected over aluminum for increased reliability 
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and greater ease of manufacturing small-diameter, closely-packed matrixes. 
Aliuninum has better strength-to-weight characteristics than nickels or 
stainless steels and has a definite weight advantage for all structure 
above minimum gauge. For these units, however, all items such as tube 
wall thickness and tube spacing are all at the minimum gauge. Because 
of considerations ;such as braze penetration, the minimum stainless 
steel tube wall thickness is 0.006-in. compared to 0.0l6-in. for 
altiminum in a typical 0.100-in. outside diameter tube. This alone 
overshadows the 2.86 weight advantage of aluminum. In addition, the 
selection of aluminum would require the use of more tubes for the 
same pressure drop, since the tube inside diameter for stainless stell 
tubes is 0.088 inches as against O.O68 inches for the aluminum tube, 
and the free flow area varies with the square of the inside diameter. 

The requirement for counterflow designs were generally dictated by 
heat transfer requirements. 

THERMODYNAMIC CONSIDERATIONS 

The most important limiting side condition for all Freon 21-to-cryogenic 
fluid heat exchangers was the maximum thermal conductance ratio (TCR) 
permissible to preclude freezing of Freon 21. Assiiming a Freon 21 
freezing point of 2U9°R, a minimum wall temperature of 275°B was deemed 
permissible. Therefore, for counterflow units with a Freon 21 outlet 
temperature of 500°R and a cryogen inlet temperature of 39°^ one finds 
the maximum TCR as follows: 

I 

hA, (T -T) = hA (T. -T) (cold fluid inside-the-tubes) 

I w c on w 


hAj 

T,. - T 

h w 


T - T 

0 

w c 

TCR 

500 - 275 

275 - 39 

TCR 

= 0.954 
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For a 300°R Freon 21 outlet temperature and a 39^R cryogen inlet 
temperature the maximum permissible TCR is O.IO 6 (or, in other words, 
the cryogen must have a controlling thermal resistance). 

For very low velocity, laminar flow, the cryogen heat transfer co-effi- 
cient is sensitive to the local acceleration field. Therefore, in 
order to ensure acceptable operation during periods of sustained 
acceleration and deceleration, all designs were limited to turbulent 
flow inside the tubes. 

GEOMETRY CONSIDERATION 

Although there are numerous varieties and type of heat transfer 
matrixes, the most common for general "compact" type application are the 
plate-fin type matrix offers the following: 

(a) High heat transfer area density per unit following 

(b) High performance surfaces via boundary-layer interrupting, 
off-set fins 

(c) Ease in balancing thermal conductance and overall geometry by 
varying the surface combinations 

Small diameter tubular matricies are generally not as good as the 
plate-fin type in the above categories, but they do offer other advantages: 

(a) Excellent press\ire containment characteristics particularly 
in the classic shell-and-tube version. 

(b) Usually a reduced total length of brazed- joint, fluid inter- 
face , and therefore a reduced liklihood of inter-fluid leakage . 

(c) By proper design, good control of freezing or congealing may 
be achieved. 

The advantages of shell-and-tube matrixes for the Freon Rl-to-cryogenic 
fluid application outweighed those of the plate-fin type. By flowing 
hot fluid outside of the tubes, total tube blockage was eliminated. 

If a tube were fully blocked, high tube-to-tube thermal stresses could 
arise . 
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SUBROUTINE INPUT DATA REQUIREMENTS 

Input data for use in subroutine HEXF21 are supplied through the 
calling arguments . The three input variables and the single output 
variable are as follows: 

Fluid identity - 1 = 0^, 2 = 

Heat transfer required (Btu/H^) 

Cold Fluid Inlet Pressure (Psia) 

Heat Exchanger Weight (lbs) 

There are no common data block requirements in this subroutine. 

HEXF21 MATHEMATICAL MODEL 

There is no math model presented for HEXF21 . The reader is referred 
to Reference I. 9-8 for further information. 

CALLING SEQUENCE 

Subroutine HEXF21 is initiated by a call from subroutine FUELCL with 
four ( 4 ) calling arguments. The first three arguments are input data 
and the fourth, is for returning the single subroutine output value. 
The argument variables are defined below. Completion of the data 
search returns program control to subroutine FUELCL. 

SIGNIFICANT VARIABLES 

The significant variables processed by subroutine HEXF21 are defined 


in the 

following list: 




NAME 

TYPE 

I/O 

DIMENSION 

DESCRIPTION 

IGAS 

I 

I 

1 

Fluid Identification 
1 = 0 ^; 2 = H^ 
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QREQ R 

PC IN R 

HXWT R 


I 

I 

0 


1' Heat Transfer Required (BTU/Hr.) 

1 Cold Fluid Pressure (PSIA) 

1 Heat Exchanger Weight (lbs) 


SUBPROGRAMS REFERENCED IN HEXF21 


None 

SUBPROGRAMS REFERENCING HEXF21 

NAME TYPE PURPOSE REFERENCE 

FUELCL S Fuel Cell System Page B-152. 

Analysis 

LISTING REFERENCE PAGE 


A listing of Subroutine HEXF21 will be found in Appendix-B, page l86. 
FLOW CHART 


There is no flow chart for subroutine HEXF2i. 
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FUNCTI0N HFUNC 


For a description of HFUNC see the writeup for "TKGE0M." 


FUNCTIC^N HSPHER 


For a description of HSPHER see the writeup for "G0MTRY. " 
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Subroutine INTAB 
DESCRIPTION 

Subroutine INTAB reads and stores all table input data. The tables are stored in labeled 
common array (TABLE) which is dimensioned 7000. Tables are stored dynamically in 
the TABLE array and the location of each first word of a table is stored in a table location 
array (TLA) dimensioned 50. 

Each table that is input is designated by a table ID number which must be between 1 and 
50 and, therefore, as many as 50 tables may be stored as long as the total table storage, 
of 7000, is not exceeded. There are two types of table data which may be input. The first 
is coefficient data — this input is used as coefficient for an Nth degree polynomial, the first 
being the coefficient for the highest (Nth) order term and the last is the coefficient of the 
lowest (0th) order term. The second type table input is discrete table data which is used 
in the normal table interpolation manner . Either type table may have as many as six 
dimensions, five "independent" and one dependent variable, and the dependent variable 
may be interpolated linearly, parabolically , etc. , or by an Nth degree polynomial. 

Each table which has more than two dimensions is divided into subtables, and these sub- 
tables are composed of the normal (x, y) pair — one pair for each point on the table, or 
an Nth degree polynomial . 

A table ID number of zero terminates the input. 

An example of a table stored in the array TABLE follows. 
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EXAMPLE OF A TABLE STORED IN THE ARRAY TABLE (ITABLE) 
{Location is for the 1st table stored) 


Location 

( 1 ) 

( 2 ) 

(3) 

(4) 

(2+NPj^) 

(3+NP^) 


(3+NPJ+NP2) 


k 

I = 1+ (NP.+l) 

1=1 

(I+l) 

( 1 + 2 ) 

a+3) 

a+4) 

(I+3+NV^) 


(I+3+2NVj^) 


ND, (number of dimensions of this table) (NOTE: this location 
count is stored in TLA (NT)) 


1 ND 6 

NP, (count of number of values for this "independent" variable 
(V. ) which follows) 


V^(l) 

V^(2) 


NPj^ variables for first independent variable 


V^(NP^) J 

NPg (coimt of number of values for this "independent" variable) 
V (2) I 

I NP_ variables for 2nd independent variable 

V2 {NP2) 


NP. (count of number of values for this "independent" variable 
V^(l) 


Vj^(2) 

V^(NPj^) 
NV^ 

DTT 

1 


NPj^ variables for the kth independent variable 
k = ND-2 


1 

TYPE 


NIP, 


^1^^^ indep var. of (X^Y) table 

Xi(+) 

X^(NV) 

^1^^^ dependent var. of (X,Y) table 
Y^(+) 

Y^(NV^) 


) *For Discrete Table 
input (TYPE = 1) 


*NP^ X NP 2 X • • • X NPj^ of these subtables 
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EXAMPLE OF A TABLE STORED IN THE ARRAY TABLE (ITABLE) (Continued ) 

(Location is for the 1st table stored) 


NV 

TYPE 

NIP 

COEF(l) 

COEF(2) 


^*For Coefficient Table 
I Input (TYPE = 0) 


COEF (NV) 


J 


*NPj^ X NP^ X • • • X NPj^ of these subtables 
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Labeled Common Used 


C0MM0N/CI0UNT/ 

C0MM0N/CTAB/ 

C0MM0N/CTABA/ 


INTAB Mathematical Model 


This is an input routine and has no math model. 

Calling Sequence 

INTAB is called from C0NTROL and has no calling variables. All data is transferred 
by labeled C0MM0N CTAB and CTABA. When all table iiput has been read control 
returns to C0NTROL. 

Significant Variables 


Name 

Type 

1/0 

Dimension 

Description 

IFT 

I 

I 

1 

Controls input from cards or other device 

ITABLE 

I 

0 

7000 

Main storage array for table data 

KMURDl 

I 

0 

1 

Location where next variable will be stored in 
TABLE 

KWRD 

I 

0 

1 

Count of number of words in a table 

LABX 

I 

0 

3 

Label for X-axis of table plot 

LABY 

I 

0 

3 

Label for Y -axis of table plot 

NC 

I 

I 

1 

Number of comment cards for table input 

ND 

I 

I 

1 

Number of dimensions of the table 

NIP 

I 

I 

1 

Number of points to be used in interpolation 

NP 

I 

I 

1 

Nmnber of points input for an independent 
variable 

NPRT 

I 

I 

1 

Table output print control flag 

NPRT2 

I 

I 

1 

Table output summary flag 

NT 

I 

I 

1 

Table ID number -input 
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Name 

Type 

1/0 

Dimension 

Description 

NV 

I 

I 

1 

Number of variables input to a subtable 

NXYT 

I 

I 

1 

Number of subtables for a given table 

0 ft 

I 

I 

1 

Controls output to a device if TABLE is to be 
saved 

TABLE 

R 

I 

7000 

Equivalent to IT ABLE (see ITABLE) 

TLA 

I 

I 

50 

Contains location in TABLE of 1st word for each 
table 

TYPE 

I 

I 

1 

Type of table flag. 0 = coefficient, = 1 discrete 

XTAB 

R 

I 

40 

Temporary storage for independent variable or 
coefficient 

YTAB 

R 

I 

40 

Temporary storage for dependent variable 


Subprograms Referenced by INTAB 

Name Type Purpose 

PAGE F Controls Labeling of Output 


Reference 
Page B-239 


Programs Reference INTAB 
Name Type 

CONTROL Main Program 


Purpose 

Control of Program Logic 


Reference 
Page B-75 


Listing Reference 

A listing of INTAB can be foimd in Appendix B, Page 198. 


Flow Chart 


For flow chart of INTAB see Figure 1. 9-B. 
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Fig. 1.9-13 Flowchart for INTAB 
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Subroutine L0CAT 
DESCRIPTION 


Subroutine L0CAT locates a specified subtable within the major table and stores its 
X and Y values or its coefficients into small arrays for later interpolation by function 
YLGINT. 


The suitable number is passed via calling sequence to L0CAT from function MIPE, 
where it is calculated, and L0CAT uses this number together with a pointer (IDXl) 
calculated in subroutine FINTAB to calculate the location in TABLE of the first X 
(or coefficient) value for the designated subtable. After this location is found the 
subtable X (or coefficient) and Y values are loaded into two small arrays. The X (or 
coefficient) values are transferred to the array XTAB and the Y -values are transferred 
to YTAB, if the subtable is a coefficient type no Y values are transferred. The number 
of values to be transferred is determined by the variable NV which is the first word of 
the subtable. After NV', TYPE, NIP, XTAB and YTAB have been determined and 
loaded for this subtable, control returns to the calling routine MIPE. 

Labeled Common Used 

C0MM0N/CI0UNT/ 

C0MM0N/CTAB/ 

C0MM0N/CTABA/ 

Mathematical Model for L0CAT 

None 
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Calling Sequence 

L0C AT is called by function MIPE and it has one variable in its calling sequence . 
The variable is the subtable number which has been calculated in MIPE . All other 
data is transferred by the use of labeled common CTAB and CTABA. 

Significant Variables 


Name 

Type 

1/0 

Dimension 

Description 

IDXl 

I 

I 

1 

Pointers to first word of first subtable 

IT ABLE 

I 

I 

7000 

Main storage array for table data 

MNT 

I 

I 

1 

Number of the designated subtable from 
MIPE 

MP 

I 

0 

1 

Number of interpolation points for this 
subtable 

NT 

I 

I 

1 

The absolute value of MNT 

NV , 

I 

0 

1 

Number of X-Y pairs or coefficient this 
subtable 

TABLE 

R 

I 

7000 

Equivalent to ITABLE (see ITABLE) 

TYPE 

I 

0 

1 

Type of subtable -discrete or coefficient f( 
this subtable 

XTAB 

R 

0 

40 

Array where independent (or coefficient) 
values are stored 

YTAB 

R 

0 

40 

Array where dependent values are stored 

Subprograms Referenced by 

L0CAT 



Name 

Type 

Ihirpose 

Reference 

DIAG 

F 

Prints diagnostic trace 

Page B-111 


Subprograms Referencing L0CAT 

Name Type Purpose Reference 

MIPE F Multilevel table interpolation Page B-221 

1-278 


LOCKHEED MISSILES & SPACE COMPANY 



LMSC-A991396 


Listing Reference 


A listing of L0CAT can be found in Appendix B, Page 205. 


Flow Chart 


For flow chart of L0CAT see Figure 1.9-14. 
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Fig, 1.9-14 Flowchart for L0CAT 
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SUBROUTINE IfiSCMP 
DESCRIPTION 

The subroutine is a shortened and modified version of subroutine CMPCAL, arranged 
specifically to process a system employing the cryogen’s oxygen and nitrogen. The 
subroutine provides configuration analysis for component sizing and pressiire 
drop calculations for the ECIfiS or similar systems. The logic employed is essen- 
tially the same as that used in subroutine CMPCAL and the same variables and 
common storage are utilized. The analytical procedure uses the configuration table 
readin by subroutine C0MPIL. (Note that the configuration table in the computer 
image of main stream flow schematic where the subroutine considers the oxygen 
side of the system first and then ccnsiders the nitrogen side. Based upon the 
input configuration table data^ the subroutine accomplishes the computation of 
the individual component sizing, weight, pressure drop and flow constraint data 
and presents the calculated values in tabular forimatted output as a "Summary of 
Computed System Configuration Parameters. " 

The principal computations accomplished in subroutine IBSCMP are given briefly 
as follows : 

(a) Initializes the routine and starts the configuration processing loop by calling 
for the decoding of the branching variables contained in the first configuration 
data card. The primary control branching variables are CFUNCT and CFTYPE as 
defined in subroutine C0MPIL and the PDP-CCNFIG. The branching variable CFUNCT 
successfully contains the coding for, the fluid identification, the consumer 
identification and, in turn, each component sequentially considered in the 
system. The branching variable CFTYPE successively contains the coding for 
the fluid state, the consumer characteristic type, and, in turn, the control- 
ling characteristics of each component sequentially considered on the system. 
Subroutine branching to the specified component analysis is accomplished via 
a computed G0T0 statement, controlled by the variable CFUNCT. 


(b) Identifies the fluid to be considered and specifies its state condition. 
Initializes the sequential indices. 
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(c) Identifies the consumer and sets up the consumer fluid flow rate, fluid pres- 
sure and fluid temperature with sequential indices. 

(d) Processes a line segment (whenever called for by CFtJNCT) through the sequence 
of the line analysis to compute flow conditions, pressure drop and line 
weight. Fano flow, compressible flow, velocity effects and minimum wall 
thickness are all considered in the analysis. 

(e) Processes a control unit throu^ the sequence of the control analysis to com- 
pute flow conditions, pressure drop and valve weight. Valve mass characteris- 
tics are based upon pressure requirements as specified by CFTYPE. Control 
unit may be a valve, check valve, regulator, orifice or flowmeter. Selection 
is made via the second index imbedded in ClTEfPE. (As defined in PDP-CCNFIG) . 

(f) Processes a fitting or tap in much the same fashion as the line analysis is 
conducted, taking into account flow geometry effects. Computes flow condition 
pressTire drop and fitting or tap weight. 

(g) Processes a heat exchanger. Fits the previously calculated heat exchanger 
data into its nominal configuration sequence permitting the addition of 
the heat exchanger pressure drops to the system pressure drop sequence. 

(h) Processes the fluid supply tank. Fits the previously calculated tank data 

1 . 

into its nominal configuration sequence position. Tests to see if tank 
pressure is adequate for the system computed pressure drop. 

(i) Outputs the con^juted configuration component data in a tabular formatted 
output wherein each component is identified by the same code name and 
sequence position as it appeared on the oriignal system schematic. 

Input data for use in ISSCMP is read-in at program initiation time via subroutine 

COMPIL from the configuration data cards. Data from each card is stored in a 

packed array by subroutine STOCON using equivalenced array variables defined in 
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The Procedure Definition Processor CONFIG. Retrieval of the data is accomplished 
in IBSCMP via repeated calls to subroutine GETC0N which unpacks the data as needed. 
The input data and congjuted values are stored in various regions of the labeled 
C0MM0N storage defined by PDP elements . The labeled C0MI^N areas employed by sub- 
routine ISSCMP are as follows: 

C0MM0N/CACCUM/ 

C0Miy^N/CCNPIG/ 

C0MM0N/GCNTRL/ 

C0MM0N/CIIBS/ 

C0M^N/CVISS/ 

C0MM0N/CENG/ 

C0Miy^N/CHEK/ 

C0MM0N/CHS0RC/ 

C0iyiM0N/CNAMEB/ 

C0MM0N/C0NST/ 

C0MM0N/CTANK/ 

C0MM0N/CI0UNT/ 

I£S CMP MATHEMATICAL MODEL 

The LSSCMP is a modified version of subroutine CMPCAL retaining the major features 
of the CMPCAL math model. The reader is therefore referred to the subroute CMPCAL 
math model for details concerning the mathematical procedures and equations employed 
in subroutine ISSCMP. Reference Appendix C. 

CALLING SEQUENCE 

Subroutine ISSCMP is initiated via the statement CALL ISSCMP in subroutine ECISS. 

No calling variables are required. Data transfer to and from subroutine ISSCMP is 
effected through the use of INCLUDE statements which bring in the appropriate 
PDP elements defining the required labeled C0MM0N storage areas. Upon comple- 

tion of the ISSCMP computation program control returns to subroutine IXJISS. 


1-283 



LMSC-A991396 


SIGNIFICANT VARIABLES 

Significant variables considered in, and processed by, subroutine ISSCMP are defined 
in the list given below: 


NAME 

TYPE 

111 

DIMENSION 

DESCRIPTION 

ICNF 

I 

I 

1 

Number of Configuration Data Cards Input 

IDX 

I 

0 

1 

Configuration Item Index 

ISIGN 

I 

0 

1 

Analysis directional index 

CFUNCT 

I 

I 

1 

Integer Corresponding to Configuration Item Pun 

CFTYPE 

I 

I 

1 

Integer Corresponding to Function Type 

CMTYPE 

I 

I 

1 

Integer Corresponding to Material lype 

CITYTE 

I 

I 

1 

Integer Corresponding to Insulation Type 

CNOPER 

I 

I 

1 

Number of Units Operating 

CNSTBY 

I 

I 

1 

Number of Units on Standby 

FRCOEF 

R 

I 

100 

Characteristic Friction Factor for Flow Region 

L0D 

R 

I 

100 

Length over Diameter, or. Length 

DIAM 

R 

I 

100 

Diameter 

ITHIK 

R 

I 

100 

Insulation Thickness 

NEAR 

R 

I 

100 

Number of Layers of Insulation per Inch 

C0DE 

R 

I 

100 

Identification Code for Configuration Unit 

IGAS 

I 

I 

1 

Integer Corresponding to Fluid Kind. 

GSTATE 

I 

I 

1 

Integer Corresponding to Fluid State 

PRESS 

R 

0 

100 

Fluid Ik’essure at each Point in System 

TEMP 

R 

0 

100 

Fluid Temperature at Each Point in System 

WI)0TN 

R ' 

0, 

100 

Fluid Flowrate at each Point in System 

WD0TI 

R 

I 

2 

Input Fluid Max. Flowrate at Consumer 

PISN0M 

R 

I 

2 

Input Fluid Pressure at Consumer 

TLSN0M 

R 

I 

2 

Input Fluid Temperature at Consumer 

FLD 

R 

0 

1 

f II 

— for Configuration Unit Considered 

IDV 

I 

I . 

1 

Integer Pointer for Control Mass Characteristic 

LDV 

I 

I 

1 

Integer Pointer for Fitting and Tap Configurati 

RH0 

R 

0 

1 

Fluid Density when a Gas 

DELP 

R 

0 

1 

Fluid Pressure Drop Across Component 

A 

R 

0 

1 

Cross-sectional Area of Flow Region 

WEIGHT 

R 

0 

1 

Wei^t of Configuration Component Considered 
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NAME 

TYPE 

1/0 

DIMENSION 



DESCRIPTION 

APRES 

R 

I 

2 

Accumulator Pressure(if used) 

INDXAC 

, I 

0 

2 

Accumulator Index (if used) 

INDXTK 

I 

0 

2 

Fluid 

Tank 

Index - set to IDX 

SIPRES 

R 

I 

2, 1 

Fluid 

Tank 

Initial Pressure 

SITEMP 

R 

I 

2, 1 

Fluid 

Tank 

Initial Temperat-ure 

WTTOT 

R 

I 

2 

Fluid 

Tank 

Weight 

WD0TCF 

R 

I 

10, 2 

Fluid 

Heat 

Elxchanger Flow Rate 

UC0DE 

R 

I 

10, 2 

Fluid 

Heat 

Exchanger I.D. Code 

HEKCIT 

R 

I 

10, 2 

Fluid 

Heat 

Exchanger Cold Inlet Temp 

HKCDLP 

R 

. I 

10, 2 

Fluid 

Heat 

Exchanger Delta-P 

WHXT0T 

R 

I 

10, 2 

Fluid 

Heat 

Exchanger Weight 

MACH 

R 

0 

100 

Fluid 

Mach 

No. 

MFLG 

I 

0 

100 

Fluid 

Mach 

No. Flag 


SUBPROGRAl© REFEEIENCED IN ISSCMP 


Name Tyjte 

PAGE F 

GETC0N S 

DENS0N S 

C0MFL0 S 

VGVS S 

LWEGHT S 

CIW F 


Purpose 

Controls Pagination and Line Count 

Unpacks Configuration Data Records 

Computes Desired Fluid Density at Stated Condi- 
tions 


Reference 
Page B-239 
Page B-174 
Page B-108 


Computes Pressure Drop and Mach Number for 
Desired F^iid at Stated Conditions Using Com- 
pressible Flow Equations 

Computes Mach Number for Desired Fluid Density 
Using Velocity of Sound Equations 

Computes Weight of a Line Segment 

Computes the Weight of a Control Unit, Fitting 
or Tap as specified 


Page B-62 


Page B-322 


Page B-215 
Page B-39 


TABLES REFERENCED IN IBSCMP 
TABLE NO. TITLE 

No tables are called in IBSCMP 
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SUBPROGRAMS 

REFERENCING 

ISSCMP 


NAME 

TYPE 

PURPOSE 

REFERENCE 

ECISS 

S 

Perform Analysis of Life Support 
System 

Page B-122 


LISTING REFERENCE PAGE 

A listing for subroutine ISSCMP will be found in Appendix B, Page 208. 


FLOW CHART 

A flow chart for subroutein ISSCMP is presented in Figure 1.9-15. 
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SUBROUTINE LSSCMP 


THIS SUBROUTINE IS A MODIFIED 
VERSION OF aiPCAL WHICH IS RE- 
CODED TO DELETE TiiS BRMCHINu 
TO ''ENGINE", "ACCUMULATOR", 
"PUMP", "TURBINE", "GAS GENER- 
ATOR" , " TRANSFER PUMP" , "MOTOR 
WEIGHT", AI\1D "3 VTTERY 'aEIGHT" . 

THE SUBROU'TIME IS ALSO RE- 
CODED TO ACCOMODATE CIJLY TiiE 
GASES OXYGEN MD NITROGEN i^OR 
UvSE E/ITH THE LIFE SUPPORT SYS- 
TFDf ANALYSIS. 

STRUCTURALLY THE SUBROUTINE 
OPERATES IN THE SAME MANIEfi AS 
THE ORIGINAL Q'lPCAL. 

(REFERE1.ICE F'lG. 1,9-U) 


r 


RETURN 


FIGURE 1,9-15 flow CHART FOR SUBROUTINE LSSOIP 
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SUBROUTINE LWEGHT 
DESCRIPTION 


The subroutine LWEGHT contains the equations and computational procedures for 
determining the weight of fluid plumbing lines, fittings, line insulation and the 
weight of vacumn jacketed lines . The equations employ the basic properties and 
dimensions of the materials of construction and insulation specified for the lines 
and fittings, for the weight calcvilations . The calculations are constrained to practical 
cases through the use of minimum gage thickness values preset in the program. 

The basic materials properties and minimum gage thicknesses employed are defined 
in PDP-CMATRL and stored in subroutine ST0DTA. Ultimate stress values as a 
function of material temperature are obtained by table lookup. 

Input data for use in subroutine LWEGHT is obtained from labeled C0MM0N storage 
accessed through INCLUDE statements. The labeled common storage reqviired for use 
in subroutine LWEGHT is as follows; 

C0MM0N/CCNFIG/ 

C0MM0N/CMATRL/ 

C01VIM0N/C0NST/ 

C0MM0N/TABL0K/ 

LWEGHT MATHMATICAL MODEL 

No mathematical model is presented since the equations are largely of type to be 
foimd in standard engineering handbooks and industrial manuals which may be foimd 
in any library. The subroutine listing is felt to be mathematically explicit. Materials 
stress data employed in the Data Tables was obtained from MIL-HDBK-5. Vacuum- 
jacketed line data was taken from Reference 1.9-2. Parametric line weight data 
curves will be foimd in the same reference. 
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CALLING SEQUENCE 


Subroutine LWEGHT is called with two arguments, IDX and LDV. Argument IDX is 
a configuration data array ordering index wMch simply assures that the computed 
weight will be stored in the proper array position for later use. Argument, LDV 
defines whether the component item being weighed is a line , or , a fitting and 
what kind of a fitting is being considered. Input data transfer as stated above is 
effected through the C0MM0N storage areas . Upon completion of the required 
calculations, program control is returned to the calling program. 

SIGNIFICANT VARIABLES 


Significant variables employed in subroutine LWEGHT are: 


Name 

Type, 

JZ0_ 

Dimension 

IDX 

I 

I 

1 

LDV 

I 

I 

1 

TEMP 

R 

I 

1 

PRES 

R 

I 

1 

THKL 

R 

C 

1 

SI 

R 

C 

1 

DIAM 

R 

I 

100 

MINTHK 

R 

I 

15 

WGTFT 

R 

c 

1 

FL0D 

R 

c 

1 

L0D 

R 

I 

100 

LWEGHT 

R 

0 

100 

ITHICK 

R 

I 

100 

RH0I 

R 

I 

10 

WI 

R 

0 

100 


Description 

Configxiration data ordering index 
Configuration data type index 
Fluid temperature 
Fluid pressure 

Material calculated thickness 

Material Ftu temperature TEMP 

Line or port diameter 

Minimum gage limits for material 

Weight per foot of line 

Equivalent length of fitting 

Length of line 

Weight of line or fitting 

Insulation thickness 

Insulation density 

Insulation weight 


SUBPROGRAMS REFERENCED IN LWEGHT 


Name Type Purpose 


Reference 


DIAG F Diagnostics Print 

FINTAB S Table Lookup 


Page B-111 
Page B-147 
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SUBPROGRAMS REFERENCING LWEGHT 


Name 

Type 

Purpose 

Reference 

CMPCAL 

S 

Configuration Analysis 

Page B-50 

LSSCMP 

S 

Configuration Analysis 

Page B-208 


LISTING REFERENCE PAGE 

A listing of subroutine LWEGHT will be found in Appendix B, page 215. 

FLOWCHART 

None is presented 
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P\inction MIPE 
DESCRIPTION 

The real function MIPE is a multilevel interpolation and polynomial evaluation routine. 
The routine receives through its calling sequence the ND-1 "independent" variables 
along with a count (NV = ND-1). The "independent" variables are picked from an 
array labeled XV AC and the first NV-1 of these input variables are checked against 
the table stored independent variables to determine if they are within the range of the 
table . The routine then checks each input variable to determine where in the range of 
table values it falls, this is noted and stored as an index in the array KNT for later use 
in interpolation. The routine next determines which subtables, by number, must be 
interpolated (see following sheets for a detailed explanation) and the routines L0CAT 
and TEL are called upon to do this interpolation. The results of each of these 2^^ 
subtable interpolations are stored in an array YVAL, and are then linearly interpolated 
by pairs until a single Y value is obtained. This value is then returned to the calling 
routine . Polynomial evaluation is performed in the same manner and if fast the routine 
MIPE does not differentiate between the two type of evaluation. 

The following is a detailed explanation of the routine's logic to .determine the subtable 
numbers to be used for interpolation (coefficient evaluation) . The independent variable 
table TAB (or ITAB) is supplied by FINTAB which is always called directly before 
MIPE. For purposes of explanation numeric table values have been assumed. A 
diagram of the subtable setup has also been included. 
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>_ITAB (6,5), TAB (6,s£ 



1 

2 

3 

4 

1 

3 

3 

3 

... 

0 

2 

1500. 

75. 

_26, 


3 

1750. 

J.20. 

32. 


4 

2000. 

155. 

40. 


5 





6 






KNT(5) 

3-1 = 2 

' 3-1 = 2 

i 2-1 = 1 

! 

NTD(6) 

"8/1 = 8 

8/2 = 4 

[ 8/4=2 

' 8/8 

L(5) 

3x3 = 9 

1x3 = 3 

■ 1 

I 

1. 


For an input to MIPE such as: 


MIPE (NL, XVAL) with NL = 4 

andXVAL(l) = 1802. 
XVAL (2) = 137. 
XVAL (3) = 27. 

XVAL (4) = 123. 


and the array TAB, (ITAB) filled as above, the variable arrays KNT, NID and L would 
be calculated and stored as shown above. The number of subtables which must be 
interpolated to find the Y is calculated as NT = = 2^ = 8. To find the subtable 

identifying numbers the variable KTB must be calculated for each of the eight subtables 
which are to be interpolated. 


The first subtable number KTB, can be calculated as follows: 


KTB^ = l+L(l)*(KNT(l)-l+mod[0,NTD(ljj/NTD(2)) 
+L(2)*(KNT(2)-l+mod[0, NTD(2j /NTD(3)) 
+L(3)*(KNT(3)-l+mod[0, NTD(3| /NTD(4)} 
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and this expression is evaluated as 

KTB^ = l+(9)*[2-l+0/^+(3)[2-l+0/2j+(l)[i-l+0/^ 

= 1+9 +3 +0 

= 

so therefore the first subtable to be interpolated would be the 13th one. 

The last (8th) subtable number KTBg can be calculated as 
KTB„ = l+L(l)*rKNT(l)-l+modr7,NTD(ljj/NTD(2)} 

O " 

+ L(2) * ^T(2 ) -1+mod [7 , NTD(2)j /NTD(3)} 
+L(3)*^;^T(3)-l+mod[7,NTD(3)]/NTD(4)} 

which can be evaluated as, (where X is the integer part of X) 

KTBg = 1+(9)*{2-1+'7/4]^+(3)[2-1+3/2 +(1)1-1+ 1/lj^ 

= 1+ 9 (2) +3 (2) + 1 (1) 

= 1+18+6+1 = 26 

so that the last subtable to be interpolated would be the 26th one. The other six would 
be. between subtables 12 and 26 and in fact they are always taken in pairs and the 
complete set of eight subtables would be 13, 14; 16, 17; 22, 23; and 25,26. 

The integer number KTB is used to call L0CAT which sets up the proper X-Y subtable 
for later interpolation by subroutine TEL and function YLGINT or for polynomial 
evaluation by subroutine TEL. 

Note that, as the array ITAB (1,1) indicates, there are three "independent" variables 
each with values so that there is 3x3x3 = 37 total subtables which may be used to inter- 
polate, however, only eight subtables are used for any given set of input data. 
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Labeled Common Used 


C0MM0N/CI0UNT/ 

C0MM0N/CKEYS/ 

C0MM0N/CTAB/ 


Mathematical Model of MIPE 


None 


Calling Sequence 


MIPE is called from any routine which uses table interpolation (or polynomial evaluation) , 
It has two input variables in its calling sequence: (1) the ND-1 "independent" variables 
and (2) the count of the number of these variables which is NV(=ND-1). All other data 
is passed by labeled common CTAB. 

Significant Variables 


Name 

Type 

I/O 

Dimension 

Description 

FAC 

R 

0 

1 

Multiplying factor of linear interpolation (X-XA/ 

Xj-Xi) 1 

ITABl 

I 

I 

(6,5) 

Counts of the number of the ND-2 independent 
variables 

KNT 

I 

0 

5 

Index used in the linear interpolation of Y 

KTB 

I 

0 

1 

Contains subtable number -given to L0CAT 

L 

I 

0 

5 

Multiplying factor used to determine KTB 

NL 

I 

I 

1 

Number of levels interpolation = ND-1 

NT 

I 

0 

1 

The number of subtable interpolations to be performed 

NTD 

I 

0 

6 

Multiplying factor used to determine KTB 

TAB _ 

R 

I 

6,5 

Contains the ND-2 independent variables 

TABl 

R 

I 

6,5 

Equivalenced to XTAB (see XTAB) 

XV AL 

R 

I 

6 

Input independent values used to calculate a Y 

YVAL 

R 

0 

32 

Array used to store results of the NT subtable inter- 
polations. The first location of which is = Y 
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Subprograms Referenced by MIPE 


Name 

Type 

Purpose 

Reference 

DIAG 

F 

Prints diagnostic trace 

Page B-111 

L0CAT 

S 

Locates and loads subtable 

Page B-205 

TEL 

S 

Evaluates polynomial or 
controls interpolation by YLGINT 

Page B-292 


Siibprograms Referencing MIPE 


Name 

Type 

Purpose 

Reference 

APUSUP 

S 

Calculates parameters for APU -supercritical system 

Page B-8 

APUFL0 

S 

Calculates flow rates for APU system 

Page B-5 

CMPCAL 

S 

Computes weight, pressure, etc. , for given 
components 

Page B-50 

ECLSS 

S 

Environment control and life support system 

Page B-122 

ENGINE 

S 

Calculates weight of engine and impulse propellants 

Page B-138 

FUELCL 

S 

Calculates fuel cell parameters 

Page B- 152 

HEATEX 

S 

Calculates weight and flow rates for heat exchangers 

Page B-177 

HEXELC 

S 

Calculates weight P for electric heat exchanger 

Page B-184 

LWEGHT 

S 

Calculates line weights 

Page B-215 

MATHAX 

S 

Computes pump charact. and other math, relations 

Page B-218 

PARPMP 

S 

Computes pump design characteristics 

Page B-242 

TANK 

s 

Tank pressure , weight and duty cycle history 

Page B-277 

THKWTG 

s 

Calculates tank weight and wall thickness 

Page B-297 

VENT S Environment control and life support system 

Listing Reference 

A listing of MIPE can be foxmd in Appendix B, Page 221. 

Page B-318 


Flow Chart 


For flow chart of MIPE see Figure i. 9-17. 
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FUNCTI0N SPHERE 

For a description of SPHERE see the writeup for "G0MTRY." Page B-175 
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SUBROUTINE PARPMP 
DESCRIPTION 

V 

Subroutine PARPMP is essentially a pump design type of subprogram, in that, for 
specific input arguments, the routine will in effect design an oxygen or hydrogen pump 
to fit the stated requirements. The input variable values which must be supplied to the 
subroutine are: 

Fluid Type: or H 2 

Design Constraints: Minimum power, or minimu m weight 

Required Ihimp Pressure Rise 

Delivered Flowrate Required 

Net Positive Suction Pressure Available 

Fluid Liquid Density 

Upon completion of the calculations the subroutine returns the following variable 
values: 

Fhimp Efficiency 

Pump Volume 

Pump Power Required 

Pump Weight 

Pump Rotational Speed 

Required Number of Pump Stages 

Revised NPSP Required by the Pump 

The subroutine is based upon a pump parametric data study conducted by the AiResearch 
M^i Company (Ref, 1,9-6). Data from the study was converted to a math model 
suitable for evaluating liquid oxygen and liquid hydrogen pump characteristics and 
performance for a larger variety of fluid inlet conditions, flowrates and pressure rise 
requirements. The math model in turn, was then coded as a subroutine. Performance 
characteristics provided by AiResearch as graphic parametric data, were converted 
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either into equations or table data for lookup and incorporated into the subprogram. 

For both oxygen and hydrogen pumps, compressed liquid data is utilized since there is 
no requirement for zero-psi NPSP conditions in any of the cryogen systems contemplated 
The parametric data employed for the liquid hydrogen pumps covers roughly the rai^e 
of 50 to 5000 psi for pressure rise, and 0. 05 to approximately 10. 0 Ib/sec for flowrate. 
For liquid oxygen pumps the parametric data employed covers the range of pressure 
rise from 50 to 5000 psi, and flowrates of 0. 1 through approximately 50. 0 Ib/sec. 


The basic physical configuration for all pumps considered is assumed to be as 
follows: 

(1) All are single modules utilizing 1 to 5 stages. 

(2) The modules all have a fluid inlet at one end and an interface with a driving 
unit at the other. 

(3) The modules are considered to contain sufficient bearings and seals for 
operation with any suitable type driving unit. 

(4) All pumps use a basic radial flow configuration. 

(5) Barske partial emission configurations are employed for high pressure rise 
with low flowrates. 

(6) Full admission, axial -radial mixed flow configurations are employed for 
low pressure rise with high flowrates. 

(7) Mid-range pumps employed a full admission centrifugal configuration. 

(8) The first stage of all pumps was considered to be equipped with an inducer 
rotating at the same speed on the impeller . 

(9) All impellers in a given multistage pump are the same diameter and driven 
by a single shaft. 

(10) Pump housings are uninsulated and only the final stage of a multistage pump 
is considered to be equipped with a scroll. 

(11) All pumps are considered to be lightweight designs constructed of lightweight 
materials . 

(12) Driving devices for the pumps are not included in the best rotational speed 
determination, nor in the weight and volume determinations. 


The following are the principal computations accomplished in the subroutine: 

(a) Computes number of pump stages by iteration through computed pump 
parameters . 
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(b) Computes head rise per stage 

(c) Computes multiplication factor for specific speed 

(d) Computes maximum pump hydraulic efficiency 

(e) Computes required net positive suction pressure 

(f) Computes specific speed, head coefficient, adiabatic efficiency, impeller 
diameter , efficiency quotient and actual pump hydraulic efficiency for each 
iteration of pump stage evaluation loop. 

(g) Computes diameter, length of pump, and pump weight for type of pump. 

(h) Computes pump volume and pump power to chosen pump design constraint. 

Input data for use in PARPMP is transmitted to the subroutine in the calling arguments . 
Data transfers such as constants and data tables are accomplished via labeled C0MM0N 
storage blocks defined by the PDP elements. The labeled C0M.M0N areas employed 
by siabroutine PAJRPMP are as follows: 

C0MM0N/CI0UNT/ 

C0MM0N/C0NST/ 

C0MM0N/DUMMY/ 

C0MM0N/SPUMP/ 

C0MM0N/TAB L0K/ 

PARPMP MATHEMATICAL MODEL 

The PARPMP math model consisting of symbol definitions, equations, procedural logic 
and parameter data are presented in Appendix C. 

CALLING SEQUENCE 

Subroutine PARPMP is initiated by a call from subroutine CMPCAL with thirteen (13) 
calling arguments . Input and output variables make up the calling arguments as listed 
in the following subparagraph. Data transfer , other than the calling arguments , is 
accomplished through the use of INCLUDE statements as shown in the subroutine listing. 
Completion of PARPMP computations returns program control to subroutine CMPCAL. 


1-301 


LOCKHEED MISSILES 8e SPACE COMPANY 



LMSC-A991396 


SIGNIFICANT VARIABLES 


Significant variables processed by subroutine PARPMP are defined as follows; 


Name 

Type 

I/O 

Dimension 

IGS 

I 

I 

1 

JKM 

I 

I 

1 

DLP 

R 

I 

1 

WDP 

R 

I 

1 

RNPS 

R 

I 

1 

RHW 

R 

I 

1 

T0TNU 

R 

0 

1 

V 

R 

0 

1 

E 

R 

0 

1 

WT 

R 

0 

1 

PNSG 

R 

0 

1 

NSTG 

R 

0 

1 

NPSPR 

R 

0 

1 

DELP 

R 

I 

2 

RH0 

S 

R 

R 

I 

2 

2 

WD0TP 

R 

I 

2 

NPSPA 

R 

I 

2 

NUMX 

R 

C 

5 

XM 

R 

D 

12 

NMAX 

R 

C 

1 

AE 

R 

C 

5 

AV 

R 

C 

5 

AW 

R 

C 

5 

SWB 

R 

D 

2 

PB 

R 

D 

1 

NSSI 

R 

C 

1 

NSS 

R 

C 

1 

SQTQ 

R 

C 

1 

PDI 

R 

C 

1 

PLGT 

R 

C 

1 

NSG 

R 

C 

1 

WI 

R 

C 

1 

WH 

R 

C 

1 

WS 

R 

C 

1 

WB 

R 

C 

1 

P 

NUZ 

R 

R 

C 

C 

1 


Description 

Fluid type; 1 = Og; 2 = H2 
Design constraint; 1 = Minimum power 
2 = Minimum weight 
Pump rise — Delta -P 
Flowrate required (lb /sec) 

NPSP available (psi) 

Fluid density (Ib/cu ft) 

Pump efficiency 
Pump volume (cu in. ) 

Pump power (Hp) 

Pump weight (lb) 

Pump speed (rpm) 

Number of Pump Stages 

Computed NPSP required for pump (psi) 

DLP 

RHW 

Suction specific speed 

WDP 

RNPS 

Maximum hydraulic efficiency 

Phimp length constants 

Maximum rotational speed 

Value of E — each iteration 

Value of V-each iteration 

Value of WT-each iteration 

Baseline flowrate constants for oxygen or 

hydrogen pumps 

Baseline scroll pressure (psi) 

Rotational speed at maximum hydraulic 

efficiency 

Specific speed 

Square root of voliunetric flowrate 
Pump diameter for volume calculation 
Pump length for volume calculation 
Pump rotational speed (rpm) 

Weight of impeller 

Weight of housing 

Weight of scroll 

Baseline weight of pump stage 

Pump rise plus NPSPA 

Adiabatic efficiency 
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Name 

Ty£e_ 

I/O 

Dimension 

Description 

NU 

R 

C 

2 

Hydraulic efficiency 

EFFQ 

R 

C 

1 

Efficiency quotient 

U 

R 

c 

1 

Impeller tip speed 

PSI 

R 

c 

1 

Head coefficient 

DI 

R 

c 

1 

Impeller diameter 


SUBPROGRAMS REFERENCED IN PARPMP 


Name 


Type Purpose 


Reference 


SQRT F 

PUMPEF S 

FINTAB S 

MIPE F 

SIGN F 

DBLE F 


Takes square root of named variable 
Auxiliary calculations for PARPMP. 
Entry point into subroutine MATHAX. 
Table location and lookup 
Table data extraction 
Replace sign of first argument with 
sign of second argument. 

Convert to double precision 


System Library 
Page B-218 

Page B-147 
Page B-221 
System Library 

System Library 


TABLES REFERENCED IN PARPMP 
Table 

No. Title 

27 Head Coefficient vs Specific Speed 

28 Adiabatic Efficiency vs Specific Speed 

29 Efficiency Quotient vs Impeller Diameter 

30 Baseline Stage Weight vs Impeller Diameter 


SUBPROGRAMS REFERENCING PARPMP 


Name Type Purpose 

CMPCAL S Configuration Analysis , Component 

Weights, Pressure Drops, Flow 
Conditions 


Reference 


Page B-50 
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LISTING REFERENCE PAGE 

The subroutine PARPMP listing will be found in Appendix B , page 242 . 
FLOW CHART 

A flow chart for subroutine PARPMP is presented in Fig. 1.9-18. 
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Fig. 1 9-18 Flowchart for PARPUMP 
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SUBROUTINE SPHSEG 
DESCRIPTION 


Subroutine "SPHSEG" is actually a set of five subroutines using entry points under headii 
subroutine SPHSEG. 

The entry point names and a description of their use follows: 

SPHSEG calculates the fluid head in a hemisphere , given the radius and the 
volume of fluid which it contains. 

ELIPSG calculates the flxiid head in half a ellipsoid, given the lengths of the 
radius along the axis of rotation and the radius perpendicular to it and also the 
volume of fluid which it contains. 

CYLHED calculates the fluid head in a right circular cylinder , given the 
radius of the cylinder and the volume of fluid which it contains . 

FRHEAD calculates the fluid head in a frustrum of a right circular cone , given 
the radius of the top, the radius of the bottom, the height and the volume of fluid 
which it contains. 

CYMSPH calculates the fluid head in the volume enclosed by a cylinder with an 
ellipsoid inserted into the top end. The necessary inputs to the routine are: 

(1) the radius along the axis of rotation of the ellipsoid which is equal to the 
height of the cylindrical section; (2) the radius perpendicular to the axis of 
rotation which is equal to the radius of the cylinder, and (3) the volume enclosed 
by this shape. 

Labeled Common Used 


C0MM0N/C0NST/ 
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Mathematical Model of "SPHSEG** 

For equations used see Appendix C. 

Calling Sequence 

Each subroutine entry point has a calling sequence as follows: 

SPHSEG (Volume of fluid enclosed, radius, head calculated) 

ELIPSG (Volume of fluid enclosed, radius along axis of rotation, radius 
perpendicular of axis of rotation, head calculated) 

CYLHED (Volume of fluid enclosed, radius of cylinder, head calculated) 

FRHEAD (Volume of fluid enclosed, radius of top, radius of bottom, height 
of frustrum , head calculated) 

CYMSPH (Volume of fluid enclosed, radius along axis of rotation, radius of 
cylinder, head calculated) 

Significant Variables 


Name 

TyE§ 

1/0 Dimension 

Description 

H 

R 

0 

1 

The fluid head calculated by a routine 

HGT 

R 

I 

1 

He^ht of frustrum of cone 

PV0L 

R 

I 

1 

Volume of fluid enclosed by the shape 

RAD 

R 

I 

1 

Radius along axis of rotation 

RB0T 

R 

. I 

1 

Radius of bottom (or large) end of frustrum 

RPD 

R 

I 

1 

Radius perpendicular to axis of rotation 

RT0P 

R 

I 

1 

Radius of top (or small) end of frustrum 

TV0L 

R 

I 

1 

The calculated total volume of half of an 
ellipsoid or a hemisphere 

Subprograms Referenced By 

"SPHSEG" 


Name 


Purpose 


Reference 

AC0S 

F 

Calculates arc cosine 

Univac 1108 system 

C0S 

F 

Calculates cosine 

1- 

Univac 1108 system 
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Svibprograms Referencing "SPHSEG” 

Name Type Purpose 

HFUNC F Controls calculation of fluid heads 

TNKWTA S Control calculation of tank geometry 

Listing Reference 

A listing of "SPHSEG" can be found in Appendix B, Page 263. 
Flow Chart 


A flow chart of *'SPHSEG" is presented in Fig. 1.9-19. 
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YT 
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CALculate head 
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Vr--^r,r; 


CALCauATe TM£ HEAD 
= ^iu»o / W 

<p - co*r*0-7n') 
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For L = Oi 1 
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t 

CYL HEP 
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IM A cyLiAJOe»^ 

hi = V-tluwl 
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^ ~ 
(RETURW) 


Fig. 1.9-19 Flowchart for SPHSEG 
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- fRHEAD ^ 

calculate I4EAT5 XKJ 
FRUSTRUIA OF CON)t 

Xr,. Q ) 

K, = ~n rt,K-V ^(TTVx^yrt.-rt'iVT 

TT (rb- ir*') 

C RETU^) 


CyfA6PR 

calculate HeAo XN A voL^^^e 
BETwECa) a Cyt^KJOER, A^^D ArJ 
ELUP 6010 

* TT 


RETuRKi 


Fig. 1.9-19 Flowchart for SPHSEG (Continued) 
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Subroutine ST0C0N 
DESCRIPTION 

Subroutine ST0C0N packs six words of input data (integer) into one word. The six 
words of input data are as follows. (1) Function code (FUNCT) (2) Function type 
(CFTYPE), (3) Material type (CMTYPE), (4) Insulation type (CITYPE) , (5) Number 
operating (CN0PER) and (6) Number of standby (CNSTBY), all of these six types or 
codes refer to the various components being input. The above named variable are 
equivalenced to the word ICNFIG(6) and this is the word referenced in this subroutine. 
The six words are packed by a standard (LMSC) system byte manipulation routine 
GPBYTE and are stored in the word CONFIG (IDX.l) where IDX is defined via the 
calling sequence . The words of data are stored into the word CONFIG by bytes from 
left to right in the order stated above . C0NFIG is unpacked for use by the routine 
GETC0N. 

Labeled Common Word 

1 

C0MM0N/CCNFIG/ 

ST0C0N Mathematical Model 
None 

Calling Sequence 

ST0C0N is called by C0MPIL and it has one variable in its calling sequence. The 
variable is the location index for the component storage array. All other data is 
transferred through labeled common CCNFIG. 
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Significant Variables 


Name 

Type 

1/0 

Dimension 

CONFIG 

I 

0 

100,7 

ICNFIG 

I 

I 

6 

IDX 

I 

I 

1 


Subprograms Referenced by ST0C0N 

Name 
GPBYTE 

Subprograms Referencing ST0C0N 

Name 
COMPIL 

Listing Reference 
A listing of STOCON can be found 
Flow Chart 
None 


Description 

Packed data stored in first column of this 
array 

Input array of data to be packed 
Location index in the array C0NFIG 


Type Purpose Reference 

F Byte Manipulation Routine LMSC System Routine 


Type Purpose Reference 

S Input of system components Page B-64 


in Appendix B , Page 269. 
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SUBROUTINE TANK 
DESCRIPTION 

After the preliminary tank sizing calculations have been completed, Subroutine TANK 
is utilized to develop the propellant tank pressure histories as a function of; duty 
cycle, tank heat rates, pressurization system, and propellant withdrawal. From the 
resulting pressime history data; the gas and liquid residuals , pressurization fluid 
quantities, venting requirements and final tank sizes can be determined. 

Subroutine TANK is configured to accumulate three pressurization options as follows: 

1. Self Pressurization 

2 . Cold Helium Pressurization 

3. Vaporized Propellant Pressurization 

For whichever pressurization system is selected , the subroutine is programmed to 
evaluate each coast and burn period , as defined by the input duty cycle , and perform 
the following principal computations: 

(a) Establish the Initial Tank Conditions: 

Fluid being considered 
Fluid temperature 
Tank initial pressure 
Tank initial temperature 

Weight of liquid fluid in tank ; 

Weight of fluid vapor in tank 

Weight of pressurant gas in tank 

Tank volume 

Volume of liquid in tanks 

Partial pressure of propellant vapor 

Partial pressure of pressurant gas 

Ullage volume in tank 

Effective tank density 

Effective internal energy 
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(b) For each coast period, compute: 

Pre- or Non -Vent Conditions — 

Coast duration 

Fluid temperature in tank 

Weight of liquid fluid in tank 

Weight of fluid vapor in tank 

Weight of pressurant gas in vapor 

Partial pressure of fluid vapor 

Partial pressure of pressurant gas in vapor 

Current tank pressure 

Effective internal energy 

Post-Vent Conditions — 

Tank vent pressxire 

Weight of vented fluid and gas 

Weight of liquid in tank 

Weight of vapor in tank 

Weight of pressxirant gas in vapor 

Total fluids in tank 

Partial pressure of fluid vapor 

Partial pressure of pressurant gas in vapor 

Vented tank pressure 

Effective internal energy 

(c) For Each Burn Period, compute: 

Energy Balance For Burn — 

Fluid considered 
Burn duration 
Flowrate for thrust 
Thrust propellant remaining 
Weight fluid in tank 
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Effective internal energy 
Effective tank energy 
Total flowrate from tank 

The Resulting Tank Condition After Burn — 

Propellant withdrawn 

Total fluids in tank 

Propellant (Liquid and Vapor) in tank 

Thrust propellant remaining 

New effective tank density 

Partial pressure of propellant vapor 

New effective internal energy 

The Pressurant Needed for this Burn — 

Tank liquid temperature s 

Stored pressurant gas temperature 

New tank ullage volume 

New propellant liquid volume 

Liquid propellant remaining 

Weight of propellant vapor in tank 

Partial pressure of pressurant gas 

Total pressure in tank 

Nominal operating pressvire of tank 

Pressurant gas flowrate required 

Weight of pressurant gas consumed 

New tank pressure 

Total pressurant consumed to this point in mission 

(d) Final Engine Shutdown Tank Conditions: 

The Final Tank Conditions — 

Fluid considered 
Fluid temperature 
Time since shutdown 
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Weight of liquid residuals 
Weight of propellant vapor 
Weight pressurant gas in vapor 
Partial pressure propellant vapor 
Partial pressure pressurant gas 
Ciurrent tank pressure 
Effective internal energy 
Final tank temperature 
Total vented gas weight 
Weight of gas residuals 
Weight of liquid residuals 

Pressurization System Weight — 

Total pressurant gas required 
Weight pressurant system 

An example of typical output from subroutine TANK is presented in Fig. 1.9-20. 

Input data for TANK has previously been read into the storage common blocks by 
svibroutine C0MPIL. Specific labeled C0MM0N areas used by TANK for data storage 
and transfer are: 

C0MM0N/CACCUM/ 

C0MM0N/CDCYCL/ 

C0MM0N/CENG/ 

C0MM0N/CHEX/ 

C0MM0N/CI0UNT/ 

C0MM0N/CMATRL/ 

C0MM0N/CM0Y0R/ 

C0MM0N/CNAMES/ 

C0MM0N/CTANK/ 

C0MM0 N/TAB L0K/ 
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L'SLfiS NAME *************»******* page 20 
C.I:FT *>213 * THE IriTEGRATEO HATH mODF-L * DATE IT APR 71 

EXT. 3C23'; * * TIHF I'^soaioi 

Fur. nm ' * atmtot * case i 

"*****«***'«***********•****««***«****«•« 

ACPS - TEST OEtiOliSTnATIOM PROBl.Eil 

*** TANK AND VENT PARAMETER CALCULATIONS *** 

**.* initial tank CONEITIOMS *** 

fluid COl.’SIOERFn - OXVGEN FLUID TEHPEHATURE = 161. P| TANK INITIAL PPESSUP.E = 16.00 

l'gt.of lil. pro*'. = Eini.n 'igt, prop, vapor = . 7 m hgt. lio. + vapor = slot . at 

L'3T. HElII'M in vapor = .00 TOTAL FLUIDS IN TANK = SICI.R7 VOl . OF LIOUIO FLUID = 71. BO 

Part. PELS. PROP. VAP. on = I 6 . 0 Q 0 part. pres. helium gas = ,nno uli.agp volume in tank = ?.m6 

• tank yOH'IiE = 74.26 EFF, TANK DENSITY = 66.702 EFF. TMTERNAL ENERGY = -,S6R 1 018B*02 

*•«*********«****«** Coast number = i press.svs.no. = o ******************** 

**• PRE- OK NOiM-VEMT conditions *** 

fluid considered - OXYGEN FLUID TEMPEi^ATURE = 161. RO COAST DURATION - SEC. = S40. 

L'GT.oF lio. prop. = SI0I.I2S .UGT. PROP. VAPOR = .744 WGT.MFLIUM IM VAPOR = ,000 

T PART. PELS. PROP, VAPOr. = 16.074 PAPT, PRES. HELIUM GAS = .000 CURRENT TANK PRESSURE = 16.074 

03 EFF.lNTEpriAL EMCRQY s -.■6P0«fi86+02 

M 

® *•*»♦**■*******♦♦**♦* silPiN number s I PRESS.SYS.no, s 2 •*■»*»*****♦*••****** 

»*• COriPVTE ENERGY BALANCE FOR BURN *** 


fluid CODSIOERED - OXYGEN 

pi.'RN OI.'OaTION - SEC. 

S 

s. 

FLOWRATE rOR THRUST 

s 

9.990 

T|;RUST PKOP. remaining = 

421S.0S 

pp.oeellant ih tank 

“ 

sioi.n 

EFF. 

internal energy 

s 

-.S6R09886+02 

ErF, Tank energy = 

-.20672176+06 



TOTAL FLOWRATE 

s 

12.011 

COMPUTE RESULTING 

TANK conn IT IONS •** 







p:*opellant witmdral’n = 

SS.I 11 

total fluids in tank 

= 

S046.76 

PROPELLANT LIO.+VaP. 

• 

S046.76 

TMrUST rRcP-RFHAINIflG = 

4lt:*’.2<? 

NEW EFF. TANK OEHSITY 

r 

6T.9S96 

part 

.pres. PROP. VA pOR 

s 

I6.0S6 

new internal, energy = 

-.S68 11077+02 . 







COMPUTE PEESSUFaNT 

HEFDED FOR THIS I5URH *** 






Tank lio. tenperaiure = 

161.97 

stored helium temp. 

r 

170.00 

NEW 

tank ullage VOL. 

• 

1.210 

NEW prop. lio. *,'riL(,'!lr. = 

71.01 

PROP. LIO. RENAINIMG 

r 

SONS. 78 

WGT. 

oF PROP. VAPOR 

5 

.9742 

HELI"Tl PAf T. PRESSURE = 

10.644 

TOTAL PRES. +FPV+PME* 

s 

I6.0S6 

NON. 

OPERATING PRES. 

s 

26.700 

helium FLOW rate = 

. 1644-01 

WEIGHT OF helium USED 

5; 

.7S2B-0I 

NFW 

TANK PRESSURE 

s 

26.700 

Total helium consui'ep = 

.07S 









Fig. 1,9-20 Typical Subroutine TANK Output 
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TANK MATHEMATICAL MODEL 


The equations, mathematical logic, and procedures, necessary tables and constants 
required are presented in Appendix c. 


CALLING SEQUENCE 

Subroutine TANK is initiated by a simple call from subroutine CRYC0N, with no calling 
arguments. Data transfer to TANK is accomplished through INCLUDE statements 
as shown in the subroutine listing. Upon completion of the TANK computations, 
sequential control is returned to subroutine CRYC0N. 

SIGNIFICANT VARIABLES 

Significant variables employed in subroutine TANK are given as follows; 


Name 

Type 


Dimension 

N0P 

I 

I 

2,1 

SATYPE 

I 

I 

2 

SITYPE 

I 

I 

2,1 

SMTYPE 

I 

I 

2,1 

SPTYPE 

I 

I 

2,1 

SITEMP 

R 

I 

2,1 

SIPRES 

R 

I 

2,1 

SPGTEM 

R 

I 

2,1 

S0PRES 

R 

I 

2,1 

SVPRES 

R 

I 

2,1 

SHFLUX 

R 

I 

2,1 

SITHIK 

R 

I 

2,1 

FLDL0D 

R 

I 

2 

SULGPC 

R 

I 

2 

SMDIAM 

R 

I 

2,1 

SH0TEM 

R 

I 

2,1 

SHDELP 

R 

I 

2,1 

SPDELP 

R 

I 

2,1 

SG0TEM 

R 

I 

2,1 

SGGPC 

R 

I 

2,1 

SGMRAT 

R 

I 

2,1 

SNBAR 

R 

I 

2 

IG 

I 

C 

1 

IP 

I 

C 

1 


Description 

Number of tanks operating 
Type acquisition device 
Tank insulation type 
Tank material type 
Pressurization system type 
Tank initial temperature 
Tank initial pressure 
Pressurant gas temperature 
Tank operating pressure 
Tank vent pressure 
Heat flux into tank 
Insulation thickness 
Fluid loaded into tank 
Tank ullage volume (%) 

Tank maximum diameter 

Tank heat exchanger outlet temperature 

Tank heat exchanger delta -P 

Tank circulating pump delta -P 

Gas generatore outlet temperature 

Gas generatore champer pressure 

Gas generatore mixture ratio 

Insulation — layers per inch 

Fluid index: 1 = 02 , 2 = H2 

Duty cycle index 
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Name 

Type 

1/0 

Dimension 

IW 

I 

C 

1 

IF 

I 

C 

1 

IB URN 

I 

c 

1 

ISW 

I 

c 

1 

WLRT 

R 

c 

2.1 

WHESUM 

R 

c 

1 

T 

R 

c 

1 

PWT0T 

R 

c 

2 

WPT0T 

R 

I 

2 

VLIQ 

R 

c 

1 

PV0L 

R 

c 

1 

WPV 

R 

c 

1 

PHe 

R 

c 

1 

WHe 

R 

c 

1 

WP 

R 

c 

1 

WPT 

R 

c 

1 

ENERGY 

R 

c 

1 

PPV 

R 

c 

1 

SV0L 

R 

I 

2 

RH0P 

R 

c 

1 

RH0G 

R 

c 

1 

PRES 

R 

c 

60,2,1 

RATI0 

R 

c 

1 

ZHE 

R 

c 

1 

DCYCLE 

R 

I 

60 

SVWT 

R 

c 

30,2,1 

WT0T 

R 

c 

1 

NDCYCL 

I 

I 

1 

WD0TJ 

R 

I 

2,2 

E 

R 

c 

1 

WVSUM 

R 

c 

1 

SWVT0T 

R 

c 

30,2 

WGR 

R 

c 

2.1 

T FINAL 

R 

c 

1 

RHE 

R 

c 

1 

WD0THE 

R 

c 

30,2,1 

PRESHE 

R 

c 

2.1 

WHET0T 

R 

c 

2,1 

WPGT0T 

R 

c 

2.1 

WD0TGG 

R 

c 

30,2,1 

WPVG 

R 

c 

1 

WDPSMX 

R 

c 

1 

WGGPPG 

R 

c 

2.1 

WGGAPG 

R 

c 

2,1 

HPMXPG 

R 

c 

1 


Description 

Coast period index 

Burn period index 

Burn counting index 

Current pressurant system t}^e 

Total liquid residuals in tank 

Sum of helium consumed to point 

Temperatiure at any point 

Propellant remaining in tank 

Total propellant required for system 

Volume of liquid in tank 

ullage volume at any point 

Weight of propellant vapor 

Helium pressure 

Weight of helium 

Weight of liquid propellant 

WP + WPV 

Effective internal energy 

Partial pressure propellant vapor 

Volume of propellant tank 

Density of liquid fluid 

Density of gaseous fluid 

Tank pressure at any point 

Weight ratio for energy change 

Helium compressibility 

Duty cycle time valve array 

Tank vented weight 

Current total fluids in tank 

Index of total values in DCYCLE array 

Flowrate for all gas generators in system 

System effective energy 

Summed vented weight at end of each coast 

period 

Summed total vent weight 
Weight gas residual 
Final temperature . 

Helium density at point of calculation 

Helium flowrate 

Helium pressxire 

Total helium consumed 

Total pressurant system weight 

Flowrate pressurant gas 

Weight propellant vent gas 

Pressurant gas flowrate 

Weight gas generator propellant gas 

required for tank heat exchanger 

Gas generators systm weight 

Motor horsepower, for propellant 

circulating pump 
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Name 

Type 

I/O 

Dimension 

WMPG 

R 

C 

2,1 

WBPG 

R 

C 

2.1 

WCPPG 

R 

C 

2,1 

WTSYPG 

R 

C 

2,1 


SUBPROGRAMS REFERENCED IN TANK 


Description 

Motor weight for circulating pump 
Battery weight for circulating pump motor 
Weight circulating pump 
Pressurization system weight 


Name 

Type 

Fhirpose 

Reference 

DIAG 

F 

Diagnostic print 

Page 

B-111 

RH0LIQ 

S 

Computes liquid density 

Page 

B-262 

GSDNST 

S 

Computes gas density 

Page 

B-219 

FINTAB 

S 

Finds designated table of data 

Page 

B-147 

MIPE 

F 

Table data extraction 

Page 

B-221 

PAGE 

F 

Controls page and line circuit 

Page 

B-239 

CSUBV 

F 

Computes Cy for fluid 

Page 

B-93 

TSAT 

F 

Computes saturation temperature 
for specified fluid 

Page 

B-308 

ZFIND 

S 

Finds compressibility of fluid at specified 
T&P 

Page 

B-335 

FINDR 

F 

Finds gas constant for specified fluid 

Page 

B-140 

VENT 

S 

Computes quantity of gaseous fluid vented 

Page 

B-318 

GSZDNS 

S 

Computes compressibility and density for 
specified fluid at specified T&P 

Page 

B-219 

AMAXI 

F 

finds maximum of two values 

System Routine 

HEATEX 

S 

Computes heat exchanger parameters 

Page B-177 


SUBPROGRAMS REFERENCING TANK 

Name Type Purpose Reference 

CRYC0N S Program sequential control Page B-85 

LISTING REFERENCE PAGE 


A listing of subroutine TANK will be found in Appendix B, page 277. 


FLOW CHART 

A flow chart for subroutine TANK is presented in Fig. 1. 9-21. 
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CRYCON 

CALL 

TSIZEI 



CRYCON N 
CALL TANK J - 



f CRYCON \ 
V CONTINUE ) 


CjEEI) 

COMPUTES INITIAL TANK 
SIZE FOR TANK ROUTINE 

-(^ RETURN ^ 


< 


< 


TANK 


1 


* COMPUTES TANK PRESSURE AND 
WEIGHT AND' PRESSURE HISTORY 

* COMPUTES TANK PRESSURE AND 
WEIGHT AND PRESSURE HISTORY 

* COMPUTES TANK VOLUME AND 
SURFACE AREA 

* CALLS PRESSURE FOR 
PRESSURIZATION CALCULATIONS 

* COMPUTES WEIGHT OF 
VENTED GAS 

* COMPUTES ULLAGE GAS WEIGHT 

* COMPUTES GAS RESIDUALS WEIGHT 

* COMPUTES TOTAL ENERAY OF. 
TANK AT OPERATING PRESSURE 

* COMPUTE WEIGHT OF 
PRESSURANT GAS REQUIRED 

* COMPUTES WEIGHT OF 
PRESSURANT SYSTEM 


RETURN 


LIQRES 


T 

1 


C 


COMPUTES CRYOGEN 
RESIDUALS FOR SYSTEM 




RETURN 




( 

I 



Fig. 1.9-21 Flowchart for Tank 
and TSIZEI 
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SUBROUTINE TC0ND 


DESCRIPTION 


The subroutine provides ‘an integrated subprogram' package for the computa- 
tion of the heat leak flux (per unit area) for nine different insulation 
materials including both monolayer and multilayer types. The data employed 
in the subroutine originated largely from INSC study efforts described in 
References 1.9-9, -10, -11 and -12. The equations employed may be found 
in the subroutine math model and in coded form in the subroutine listing. 

Specifically, the siibroutine is programmed for the following insulation 
materials: 

DOUBLE ALUMINIZED MYLAR - SILK NET 

DOUBLE GOLDIZED MYLAR - SILK NET 

DOUBLE ALUMINIZED MYLAR - TISSUE GLASS 

CRINKLED DOUBLE ALUMINIZED MYLAR - TISSUE GLASS 

NRC-2, CRINKLED SINGLE ALUMINIZED MYLAR 

SUTERFLOC 

MICROSPHERES 

POLYURETHANE FOAM 

FIBERGLASS BATTING - HELIUM PURGED 


Input data for subroutine TC0ND is supplied through the calling arguments. 
The subroutine contains its own constants and does not require access to 
C0MM0N STORAGE BLOCKS. 

TC0ND Mathematical Model . / 

The TC0ND MATH MODEL consisting of the equations, constants and procedural 
steps required are presented in Appendix C. 
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Name 

Type 

u± 

Dimension 

Description 

sc0Nar 

R 

D 

1 

Numerical constant in each equation for 

EMITl 

R 

C 

1 

Valiie of e 

EMIT2 

R 

C 

1 

Value of e 

DEMIT 

R 

C 

1 

Value of (- - 1) 
e 

SC0ND 

R 

C 

1 

Value of first three 


R 

C 

1 

terms of Kg equation 

RNUM 

R 

C 

1 

Value of numerator of fractional term in 
Kg equation 

RDEW 

R 

C 

1 

Value of denominator of tractidnal 
term in Kg equation 

RC0ND 

R 

C 

1 

Value of fractional term in Kg equation 
or, alue of Kg equation for microspheres 

EMITA 

R 

C 

1 

Value of ca 

EMITB 

R 

C 

1 

Value of eb 

PKSUBE 

R 

C 

1 

Value of Kg equation for polyurethane foam 

EKSUBE 

R 

C 

1 

Value of Kg equation for fiberglass butting 


SUBPROGRAMS REFERENCED IN TC0ND 


Name Type Purpose 

Reference 


None referenced. 


SUBPROGRAMS REFERENCING TC0MD 


Name 

Type 

Purpose 

Reference 

APUSUB 

S 

Subcritical APU Analysis 

Page 

B-8 

APTJSUP 

S 

Super Critical APU Analysis 

Page 

B-12 

ECLSS 

S 

Life Support System Analysis 

Page 

B-122 

FUELCL 

S 

P\iel Cell System Analysis 

Page 

B-152 
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CALLING SEQUENCE 


Subroutine TC0ND is initiated "by the calling routines with six calling 
arguments. The first fivd arguments supply the required input data, 
while the sixth argument returns the computed value for the heat leak per . 
unit area. The calling arguments are defined below. 


SIGNIFICANT VARIABLES 


The significant variables processed by subroutine TC0ND are defined in the 
following list : 


Name 

Type 

ll± 

Dimension 

Description 

TH 

R 

I 

1 

Hot boundary condition (Tg-°R) 

TC 

R 

I 

1 

Cold boundary condition (T^-“R) 

NEAR 

R 

I 

1 

Number of radiation shields per inch 
thickness of insulation (N) 

THIKIN 

R 

I 

1 

Insulation thickness (inches) 

INTYPE 

I 

I 

1 

Insulation type (see PDP-(MATRL)) 

QC0ND 

R 

0 

1 

Heat leak flux per unit area (BTu/Hr-fl 

BELT 

R 

C 

1 


TMEAN 

R 

C 

1 


SIMT 

R 

c 

1 

(TH+TC) 

SUMSQT 

R 

c 

1 

(T^+T^ ) 

TMPRl 

R 

c 

1 


TMPR2 

R 

c 

1 

(TMPRl) 

TH3 

R 

c 

1 

(Th)^ 

NSHLD 

R 

c 

1 

THKIN* NEAR 

THKPT 

R 

c 

1 

THKIN/12.0 

THETHl 

- - R 

c 

1 

- (1.0 + TMPRl) _ 

THETA2 

R 

c 

1 

(1.0 + IMPR2) 

SIQ^A 

r' 

c 

1 

= 0.1713X10“® Steten-Boltzman constant 
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LISTING REFERENCE PAGE 

A list of subroutine TC0ND will be found in Appendix B, page 290. 


FLOW CHART 

No flow chart is presented for subroutine TC0ND since the listing clearly 
presents the order of the computations. 
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Subroutine TEL 
DESCRIPTION 


Subroutine TEL evaluates a polynomial or performs a table interpolation, using 
YLGINT , according to the specification of TYPE for the particular subtable which 
was designated. 

The dependent variable (X) is passed via the calling sequence and the table of values 
to be used in the operation is passed (from LOCAT) be use of labeled common arrays 
XTAB and YTAB. If TYPE is 0 TEL performs a polsmomial evaluation using the NV 
values of coefficients stored in XTAB (if C = XTAB(l) , • • • , = XTAB(NV)) and the 

polynomial is calculated as Y = + C ,X + C „X^ + • • • + The value of 

Y is transferred back to MIPE through the callii^ sequence. 

If TYPE is 1 TEL performs are interpolation using X and the independent table variables 
stored in XTAB to calculate a Y value from the dependent table values stored in YTAB. 
The actual interpolation is performed by function YLGINT which is a standard UNIVAC- 
1108 routine. 

Labeled Common Word 


C0MM0N/CI0UNT/ 

C0MM0N/CKEYS 

C0MM0N/CTAB 


Mathematical Model for TEL 


None 
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Calling Sequence 

TEL is called from function MIPE and it has two variables in its calling sequence. 
The variables are - (1) the X or independent variable used to calculate the dependent 
variable and its input, (2) the output dependent variable Y which is calculated and 
depends on the value of X which was input. All other data is transferred by use of 
labeled common CTAB. 


Significant Variables 


Name 

Type 

1/0 

Dimension 

Description 

NIP 

I 

I 

1 

Number of interpolation points for this 
subtable 

NV 

I 

I 

1 

Number of X-Y pairs or coefficients for this 
subtable 

TYPE 

I 

I 

1 

T3TJe of subtable — discrete or coefficient for 
this subtable 

X 

R 

I 

1 

Value of independent variable used to calculate 
Y 

XTAB 

R 

I 

40 

Subtable values of the independent variables 

Y 

R 

0 

1 

Value of the dependent variable calculated 

YTAB 

R 

I 

40 

Subtable values of the dependent variable 



Name Type Purpose Reference 

YLGINT F Interpolates from table REF. 1. 9-17 

Subprograms Referencing TEL 

Name Type Purpose Reference 

MIPE F Multilevel table interpolation Page B-221 
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Listing Reference 

A listing of TEL can be found in Appendix B , Page 292. 
Flow Chart 

For flow chart of TEL see Figure 1. 9-22. 
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Fig. 1.9-22 Flowchart for Subroutine TEL 
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SUBR0UTINE THKWTG 
DESCRIPTION 


This subroutine calculates the weight of a tank as a function of tank temperature, pressure, 
head of fluid and the geometry of the tank. The tank material type may be specified as 
input and calculations will be performed using this type of material , however , if the 
material type is not designated then the subroutine will make three calculations , for 
each tank shape , where each calculation uses a different material type . The three 
materials which are used are: (1) 2219-T87 Aluminum Alloy, (2) 321/347 Stainless 
Steel, and (3) Titanium Ti-6A1-4V alloy. The routine will then select that material 
type which gives the lightest weight for the given shape. Weights are determined by 
first calculating wall thickness and then with a given area and material density the 
weight can be calculated. 

Labeled Common Used 

C0MM0N/C MATRL/ 

C0MM0N/TABL0K/ 

Mathematical Model of THKWTG 

For equations used see Appendix C. 

Calling Sequence 

The calling sequence for THKWTG consists of thirteen variables of which eleven are 
inputs to the subroutine and two are outputs of the subroutine. See Significant variables, 
below, for a description of each. 
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Significant Variables 


Name 

Type 

IZQ_ 

Dimension 

Description 

AREA 

R 

I 

1 

Area of the tank shape being processed 

FTU 

R 

I 

1 

FTU for the designated material 

HD 

R 

I 

1 

Fluid head 

HT 

R 

I 

1 

Height of frustrum or a length of an ellipse 
axis 

IGAS 

I 

I 

1 

Fluid type 1 = 0 2 = H 

Tank shape type (1 to 4 see Listing) 

ITYPE 

I 

I 

1 

KFLG 

I 

I 

1 

= 1 for full ellipsoid, =2 for ellipsoid 
connected to other shape 

KMT 

I 

0 

1 

Type of material selected (if material type 
not input) 

MINTHK 

R 

I 

15 

Minimum allowable wall thickness. 

MTYPE 

I 

I 

1 

Material type input , if = 0 program 
will select. 

P 

R 

I 

1 

Calculated tank pressure 

PU 

R 

I 

1 

Ullage pressure input 

RAD 

R 

I 

1 

Radius of cylinder , radius of top of 
frustrum, or semi -axis of an ellipsoid 

RADI 

R 

I 

1 

Radius of bottom of frustrum 

RH0F 

R 

I 

1 

Calculated fluid density 

RH0L 

R 

I 

10 

Density of tank metal for specified type 

TEMP 

R 

I 

1 

Temperature of fluid in tahk 

THK 

R 

I 

1 

Calculated tank wall thickness 

TWEIGHT 

R 

0 

1 

Calculated total tank weight 


Subprograms Referenced By THKWTG 


Name 

Tiee 

Purpose 

Reference 

r 

FDNSTY 

S 

Calculates fluid density 

Page B-219 

FINTAB 

s 

Locates a given table 

Page B-147 

MIPE 

F 

Interpolates a given table 

Page B-221 

SQRT 

F 

Calculate a square root 

Univac 1108 
System 

Subprograms Referencing THKWTG 


Name 

Xm. 

Purpose 

Reference 

TNKWTA 

s 

Controls calculation of tank geometry and 
weight 

Page B-303 
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Listing Reference 


A listing of THKWTG can be found in Appendix B, Page 297. 


Flow Chart 


A flow chart of THKWTG is presented in Fig. 1. 9-23. 
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FUNCTI0N TKGE0M 
DESCRIPTION 


The subprogram labeled TKGE0M on its control card is actually a set of three function 
subprograms, using entry points imder the heading function *'VFUNC." The entry 
point names and a description of the function follows. 

AFUNC for an input pointer to the array JTKTYP a tank shape type is located and 
this controls the function to be called to calculate an area. 

HFUNC for a given input point to the array JTKTYP a tank shape tjre is located 
and this controls the function to be called to calculate a fluid head, 

VFUNC for a given input pointer to the array JTKTYP a tank shape type is 
located and this controls the function to be called to calculate the volume of the 
designated shape. 

This set of routines is used by TNKWTA in processing the general tank configuration 
where there is no specific order in which the tank shapes must be input (IW0P = 2 or 3) 
In general, it acts as a control routine for the calculation of geometric parameters of 
geometric shapes which have been input in any order. 

Labeled Common Used 

C0MM0N/TANKWT/ 

Mathematical Model of TKGE0M 


None 
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Calling Sequence 


Each function entry point has an array pointer in its calling sequence , and each function 
is called only by the routine TNKWTA. In addition, HFUNC also has the fluid volume 
for the given shape as a calliDg sequence variable. 


Significant Variables 


Name 

Type 

I/O 

Dimension 

Description 

HD 

R 

I 

1 

Fluid head in the designated tank shape 

I 

I 

I 

1 

Pointer to the arrays JTKTYP, XD, YD 
and ZD 

JTKTYP 

I 

I 

10 

Contains tank shape type information 

PV0L 

R 

I 

1 

Volume of the fluid in the designated shape 

VFUNC 

R 

0 

1 

Output of the calculated volume , area or 
fluid head 

XD 

R 

I 

10 

Height or radius of a shape — see input writeup 

YD 

R 

I 

10 

Radius of the shape — see input writeup 

ZD 

R 

I 

10 

Radius of the bottom of a frustrum of cone. 


Subprograms Referenced by TKGE0M 


Name 

-Type 

Purpose 

Reference 

ARACYL 

F 

Calculates area of cylinder 

Page 

B-175 

AREAFR 

F 

Calculates area of a frustrum of a cone 

Page 

B-175 

ARSPHR 

F 

Calculates area of half an ellipsoid 

Page 

B-175 

CYLHED 

S 

Calculates fluid head in a cylinder 

Page 

B-263 

CYLNDR 

F 

Calculates volume in a cylinder 

Page 

B-175 

CYLSPH 

F 

Calculates volume between cylinder and 
ellipsoid 

Page 

B-175 

CYMSPH 

S 

Calculates head between a cylinder and ellipsoid 

Page 

B-263 

ELIPSG 

S 

Calculates head in an ellipsoid 

Page 

B-263 

FRC0NE 

F 

Calculates volvime of a frustrum of a cone 

Page 

B-175 

FRHEAD 

S 

Calculates head in a frustrum of a cone 

Page 

B-263 

HSPHER 

F 

Calculates volume of an ellipsoid 

Page 

B-175 
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Subprograms Referencing TKGE0M 
Name Type Purpose 

TNKWTA S Controls calculation of tank geometry and 

weight 

Listing Reference 

A listing of "TKGE0M" can be found in Appendix B , Page 299. 
Flow Chart 

A flow chart of "TKGE0M" is presented in Fig.l. 9-24. 
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SUBR0UTINE TNKWTA 
DESCRIPTION 

TNKWTA is the main control routine for the calculation of tank weights . The routine 
accepts three input options which are determined by the input variable (flag) IW0P. 
With IW0P = 1 the subroutine processes a simple spherical tank shape which may 
have a cylindrical section added between two hemispherical sections . With IW0P 
= 2 or 3 a general shape tank can be constructed by inputting a string of tank shapes, 
in order, from "bottom” to "top" of the tank. IW0P = 2 allows the user to input 
all dimensions thereby setting the tank volume to a predetermined size . With IW0P 
= 3 , the general tank configuration is fitted to the volume of fluid plus percent ullage 
volume which is input to this routine. This allows the fluid volume to be calculated 
by other system parameters. 

Procedure for calculating tank weights is as follows. 

IW0P = 1 For this option a maximum spherical tank volume is calculated from the 
input maximum tank diameter . If the specified fluid volume is greater than this maxim 
spherical volume, then a cylindrical section is fitted between two hemispheres of 
maximum diameter. If the fluid volume is less than the maximum spherical volume, 
then the given tank diameter is decreased to fit the fluid volume. After these geometrii 
considerations have been satisfied the tank weight is calculated from tank area , wall 
thickness and material density. 

IW0P = 2 For IW0P = 2 , the total tank volume , area and weight is calculated 
based on the dimensions which have been input. The percent ullage volume is re- 
calculated using the total volume and the volume of fluid input and the required tank 
volume is set equal to the total tank volume which has been calculated. 

IW0P = 3 For IW0P = 3 , the total tank volume required is calculated from the 
fluid volume plus ullage volume which have been input to the routine. To use option 
IW0P = 3 , a cylindrical shape must be input somewhere in the tank configuration and 
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its height must be zero. The routine then goes throiagh the tank configuration and 
calculates all volumes except that for the cylindrical section. When this is completed 
the volumes are summed and subtracted from the required volume , the difference thus 
obtained is then set as the volume of the cylindrical section. The height of the 
cylindrical section is then calculated to fit the volume calculated above. Now all 
dimensions are set and the areas can be calculated and along with the material density 
a weight can be computed. 

The outputs from this routine are (1) the required volume used in the calculation of 
weight, (2) the total tank weight, (3) total surface area and (4) the height of the 
cylindrical section, if any. 

Note: A diagram of the tank geometry routine linkage is supplied along with the flow 
chart of this subroutine. Note also that all calculations are performed for both the 
oxidizer and fuel tanks, if both are present. . 

Labeled Common Used 


C0MM0N/C0NST/ 

C0MM0N/TANKWT/ 


Mathematical Model of TNKWTA 


For equations used , see Appendix C . 

Calling Sequence 

The calling sequence for TNKWTA consists of eleven variables of which seven are inputs 
to the subroutine and four are outputs of the subroutine , however , two of the input 
variables may be modified by the routine. See Significant Variables, below, for a 
description of each. 


1-343 


LOCKHEED MISSILES 8c SPACE COMPANY 



LMSC-A991396 


Significant Variables 


Name 

Type 

1/0 

Dimension 

A1 

R 

I 

2 

A2 

R 

I 

2 

A3 

R 

I 

2 

DIAM 

R 

I 

2 

FLDV0L 

R 

I 

2 

HC 

R 

0 

2 

ISW 

I 

I 

1 

IW0P 

I 

I 

1 

JFLTP 

I 

I 

10 

JTKTYP 

I 

I 

10 

KFLG 

I 

I 

1 

MFLGl 

I 

I 

1 

MTYPE 

I 

I 

2 

N0SHAP 

I 

I 

1 

PCULLG 

R 

I 

2 

PV0L 

R 

I 

1 

RMAX 

R 

I 

2 

TAR 

R 

I 

10 

TKPRES 

R 

I 

2 

TKTEMP 

R 

I 

2 

TNKVL 

R 

0 

2 

T0TARA 

R 

0 

2 

TVL 

R 

I 

10 


Description 

Aea of lower hemisphere for IW0P = 1 

Area of cylindrical section for IW0P = 1 

Area of upper hemisphere for IW0P = 1 

Maximum tank diameter for IW0P = 1 

Volume of fluid contained in tank 
(oxidizer and fuel) 

Height of cylindrical section for IW0P = 1 

= 1 for storage tanks , = 2 for accumulato: 
tanks 

Tank option flag — see description above 

Fluid type contained in each tank shape 
IW0P = 2 or 3 

Tank shape type for general configuration 
IW0P = 2 or 3 

= 1 ellipsoid connected to ellipsoid, 

= 2 ellipsoid connected to other shape 

Material type if material is not designated 

Designated material type (if = 0 program 
will select one) 

Number of geometric shapes input 

The percentage ullage volume for the tank 

"Partial" volume used when calculating 
fluid head 

Maximum tank diameter = DIAM/2. 

Surface area for a designated shape 
IW0P = 2 or 3 

Operating pressure of the tank. 

Operating temperature of the tank. 

Required tank volume calculated by this 
routine 

Total tank surface area = sum of areas 
of the shapes. 

Volume of a designated shape IW0P = 2 or 
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Name 


I/O 

Dimension 

Description 

VMX 

R 

I 

2 

Volume of maximum sphere for IW0P = 1 

VI 

R 

I 

2 

Volume of lower hemisphere for IW0P = 1 

V2 

R 

I 

2 

Volume of cylindrical section for 
IW0P = 1 

V3 

R 

I 

2 

Volume of upper hemisphere for IW0P = 1 

WT0FTK 

R 

0 

2 

Total tank weight, oxidizer and fuel tanks 

XD 

R 

I 

10 

Height or radius of a shape — See input 
writeup IW0P = 2 or 3 

YD 

R 

I 

10 

Radius of a shape — See input writeup 
IW0P = 2 or 3 

ZD 

R 

I 

10 

Radius of the bottom of a frustrum of a cone 
IW0P = 2 or 3 


Subprograms Referenced By TNKWTA 


Name 

Type 

Pxirpose 

Reference 

AFUNC 

F 

Controls calculation of an area for a designated 
shape. 

Page B-299 

ARACYL 

F 

Calculates area of a cylinder 

Page B-175 

ARSPHR 

F 

Calculates area of half an ellipsoid 

Page B-175 

CYLHED 

S 

Calculates fluid head in a cylinder 

Page B-263 

HFUNC 

F 

Controls calculation of fluid head for a designated 
shape 

Page B-299 

SPHERE 

F 

Calculates volume of a sphere 

Page B-175 

SPHSEG 

S 

Calculates fluid head in a hemisphere 

Page B-263 

THKWTG 

S 

Calculates weight of a given tank shape 

Page B-297 

VFUNC 

F 

Controls calculation of a volume for a 
designated shape 

Page B-299 

Subprograms Referencing TNKWTA 


Name 

Type 

Purpose 

Reference 

TSIZEI 

S 

Sizes tank to the calculated oxidizer and fuel 
requirements of the total system 

Page B-310 

WTACC 

S 

Sizes accumulator tanks and computes required 
insulation weights 
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Listing Reference 

A listing of TNKWTA can be found in Appendix B , Page 303. 
Flow Chart 

A flow chart of TNKWTA is presented in Fig. 1. 9-25. 

Diagram of Subprograms Linkage 

A diagram of called subprograms is presented in Fig. 1.9-26. 
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Fig. 1.9-25 Flowchart for TNKWTA 
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Fig. 1; 9-25 Flowchart for TNKWTA (Continued) 
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Fig. 1.9-25 Flowchart for TNKWTA (Continued) 
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Fig. 1.9-25 Flowchart for TNKWTA (Continued) 
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Fig. 1.9-26 Diagram of Tank Geometry Routine Linkage 
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SUBROUTINE TURBN 
DESCRIPTION 


The subroutine provides for the sizing and weighing of a turbine drive unit for the 
subcritical cryogenic pumps. The subroutine is based upon data derived from Ref. 
1.9-14. Principal computation is performed in the subroutine are: 

(a) Computes turbine rotor mean diameter. 

(b) Computes weight of power transmission element. 

(c) Computes weight of turbine rotor. 

(d) Computes weight of inlet manifold and nozzle. 

(e) Computes weight of inducer. 

(f) Computes weight of turbine and power transmission element. 

Input data for use in subroutine TURBN is transferred through labeled C0MM0N storage 
blocks. The C0MM0N storage blocks employed by TURBN for data transfer and 
output storage are: 

C0MM0N/CHS0RC/ 

C0MM0N/CPUMP/ 

C0MM0N/CTURBN/ 

TURBN MATHEMATICAL MODEL 

The TURBN Math Model consisting of symbols , constants and the equations required 
are presented in Appendix C . . 

CALLING SEQUENCE 

Subroutine TURBN is initiated by a call from subroutine CMPCAL with two calling 
arguments. Data transfer to TURBN is accomplished through the use of INCLUDE 
statements as shown in the subroutine listing. 
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SIGNIFICANT VARIABLES 

The significant variables processed by subroutine TURBN are defined in the following 
listing; 


Name 

Type 

m 

Dimension 

Description 

IGAS 

I 

I 

1 

Fluid identity; 1 = Og; 2 = Hg 

TRBWGT 

R 

0 

1 

Turbine assembly weight 

PSPD 

R 

I 

1 

Ihimp speed (rpm) 

PMP0W 

R 

I 

1 

Pump power (Hp) 

TGGPC 

R 

I 

1 

Turbine inlet gas pressure (psia) 

PSTAGE 

R 

I 

1 

Number of pump stages 

TMBS 

R 

D 

2 

Turbine mean blade speed 

TRMD 

R 

C 

1 

Turbine mean rotor diameter 

FCTR 

R 

D 

2 

Turbine trans El Weight Factor 

WPTEL 

R 

C 

1 

Power transmission element weight 

WGTTR 

R 

C 

1 

Turbine rotor weight 

WMFNZ 

R 

C 

1 

Inlet manifold and nozzle weight 

WINDCR 

R 

C 

1 

Inducer weight 


SUBPROGRAMS REFERENCED IN TURBN 
None referenced 

SUBPROGRAMS REFERENCING TURBN 
Name Type Purpose 

CMPCAL . S Performs configuration analysis 

LISTING REFERENCE PAGE 
A listing of subroutine CMPCAL will be found in Appendix B, page 314. 
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FLOW CHART 

No flow chart is presented since the listing clearly indicates the order of computations. 
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SUBROUTINE VENT 
DESCRIPTION 


This subroutine computes the total vent mass expelled during a vehicle coast period 
and computes revised values of liquid and ullage masses and the revised temperature 
for a mixed fluid system. The calculated values are returned to the calling sub- 
routine. The principal computations accomplished in the subroutine are as follows: 


(a) Computes the total mass of gas vented by iteration of pressure and 
vent mass increments. 

(b) For a given pressure drop incrementation, a test is made for vent mass 
iteration convergence. If the vent mass iteration converges, the masses are 
recomputed and a test for the pressure iteration convergence is made . If 
the above vent mass iteration does not converge then a new and smaller 
pressure increment is used and the process is repeated. The basis for the 
iterative process in each instance is the internal energy for an assumed 
vent mass and the internal energy computed for the new saturation conditions 
resulting from the vent mass being vented. 

(c) Computes revised values for liquid and ullages masses and vapor partial 
pressures. 


The subroutine prints warning messages and current data values if vent mass 
convergence fails after twenty attempts. 

Input data transfer to subroutine VENT is throi^h the calling arguments. Access to 
labeled C0MM0N storage is required only for table lookup. The only labeled common 
block used by VENT is: 

C0MM0N/TAB L0K/ 

VENT MATHEMATICAL MODEL 


The matheniatical procedures, equations and necessary tables required in sub- 
routine VENT are well defined in the subroutine listing. It does not appear that 
any advantage can be gained by repeating the entire listing as a separate model. 
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CALLING SEQUENCE 

VENT is called from siibroutine TANK with eleven calling arguments . The arguments 
in order of input are: 

Argument Description 


Q 

Total amotmt of heat added to tank (Btu) 


MH 

Mass of helium in ullage (lb) 


MPV 

Mass of propellant vapor on ullage (lb) 


ML 

Mass of liquid in tank (lb) 


T 

Temperature of fluid (liquid + vapor) in tank 

(°R) 

PV 

Vent pressure (psia) 


PI 

Initial tank pressirre (psia) 


V 

Total tank volume (cu ft) 


IG 

Fluid I. D. index (1 = 02, 2 = H2) 


PPVF 

Partial pressure of vapor in tank after venting 

(psia) 

RH0P 

Effective density of fluid (liquid + vapor) in tank (Ib/cu 

SIGNIFICANT VARIABLES 



Significant variables processed in subroutine VENT are as follows: 


Name 

Type 

1/6 

Dimension 

Q 

R 

I 

1 

MH 

R 

I&0 

1 

MPV 

R 

I&0 

1 

ML 

R 

I 

1 

T 

R 

I 

1 

PV 

R 

I 

1 

PI 

R 

I&0 

1 

V 

R 

I 

1 

IG 

I 

I 

1 

PPVF 

R 

I&0 

1 

RH0P 

R 

I&0 

1 

UF 

R 

C 

1 

UFASS 

R 

C 

1 


Description 

Heat input to tank 

Mass helium in ullage 

Mass propellant vapor in tank 

Mass liquid in tank 

Tank temperature 

Vent pressure 

Initial tank pressure 

Total tank volume 

Fluid I. D. index 

Fluid vapor partial pressure 

Tank fluid + vapor effective density 

Internal energy of fluid at new saturatiori 

condition 

Internal energy of assumed vent mass 
increment 
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Name 


1/0 

Dimension 

Description 

HHV 

R 

C 

1 

Enthalpy of vent vapor 

GC 

R 

I 

1 

Fluid gas constant 

CMWR 

R 

I 

1 

Mass weight ratio constant 

PH 

R 

C 

1 

Pressure of helium 

RH0G 

R 

c 

1 

Density of gas 

RL 

R 

c 

1 

Density of liquid 

UI 

R 

c 

1 

Initial internal energy 

UHI 

R 

c 

1 

Initial helium internal energy 

RH 

R 

c 

1 

Density of helium 

DP 

R 

c 

1 

Delta-Pressure 

DEP 

R 

c 

1 

Initial pressure minus vent pressure 

TF 

R 

c 

1 

Saturation temperature of propellant 
vapor 

DIF 

R 

c 

1 

Delta -Internal energy 


SUBPROGRAMS REFERENCED IN VENT 


Name 

Type 

Purpose 

Reference 

DIAG 

F 

Diagnostic print 

Page B-111 

AMINI 

F 

Find minimum of two values 

System 

Library 

GSDNST 

S 

Computes density of gases 

Page B-219 

RH0LIQ 

S 

Computes density of liquids 

Page B-262 

ABS 

F 

Takes absolute value 

System 

Library 

FINTAB 

S 

Table lookup routine 

Page B-147 

MIPE 

F 

Interpolation of tables 

Page B-221 

GSZDNS 

S 

Computes density and Z for O 2 and H 2 
gases 

Page B-219 

ZFIND 

S 

Finds Z for variety of fluids 

Page B-335 

TSAT 

F 

Computes saturation temperature of fluids 

Page B-308 

FINDR 

F 

Finds gas constant for variety of fluids 

Page B-140 

SUBPROGRAMS REFERENCING VENT 



Name 

Type 

Purpose 

Reference 

TANK 

S 

Computes tank history and fluid conditions 

Page B-27' 
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LISTING REFERENCE PAGE 

The VENT listing will be found in Appendix B , page 318. 

FLOW CHART 

A flow chart for subroutine VENT is presented in Fig. 1. 9-27. 
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Figure 1.9-27 Flow Chart for Subroutine Vent 
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FUNCTI0N VFUNC 

For a description of VFUNC see the writeup for "TKGE0M.” Page B-299 
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Section 2 

MATH MODEL SAMPLE PROBLEM 


In order to illustrate the application of the Math Model Program , a sample problem 
for an Attitude Control Propulsion System was assembled and run. The ACPS problem 
was chosen because it exercises more of the major subprograms than the other 
systems. The sample problem graphically illustrates the conversion of the system 
concept schematic and supporting data into a problem data input deck and the analytical 
output obtained in the program rxm. 

2.1 THE PROBLEM STATEMENT 

The ACPS concept considered was chosen from among similar concepts previously 
studied under this contract (Ref. 2.1-1). The concept is illustrated in the schematic 
presented in Fig. 2.1-1. The concept is a cold helium pressurized, subcritical 
cryogen fluid supplied, bi-propellant gas fed propulsion system. The cryogens are 
stored as fluids mider low pressvire and converted to gasses at high pressure through 
the use of high pressure liquid pumps. The high pressure liquids are vaporized in 
gas generator fired heat exchangers. The resulting gaseous propellants are then fed 
to high pressure accumulators for storage until needed for the engines. Propellant 
feed to the engines is through pressure regulations which drop the feed pressure to 
the value required for the engines. Oxygen and hydrogen gas at engine feed pressvu’e 
and temperature are available to other systems via taps in the engine feed line. 

The initial run of the system sample problem will establish the nominal case values 
for the ACPS concept and provide the base-line temperatures, pressures, pressure 
drops, flow rates, and component and system weights for the specified duty cycle and 
performance constraints. Subsequent runs of the sample case would consider the 
effects of perturbing the base-line input data in whatever manner is of interest to the 
analyst. The collected series of runs would then provide the basis for wide range 
performance and trade-off analysis conclusions and recommendations. 
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FIGURE 2.1-1 
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The sample case run herein presented is the starting point, or, base-line concept 
analysis. 

t * 

2.2 PROBLEM OUTLINE - DATA ACQUISITION 

The problem outline mil be provided to the analyst in the form of a preliminary study 
of some sort which will probably need elaboration. Specifically, the analyst will need 
to assure himself that the following data sources are in fact available: 

Mission Duty Cycl e 
Concept Schematic 
Engine Concept Details 
Tankage Concept Details 
Heat Exchanger Requirements 
Pump and Turbine Requirements 
Gas Generator Requirements 
Subsystem Constraints 

Plumbing Layout and Approximate (at least) Line Lengths 

It should not be considered unusual if the analyst finds that the data supplied is not 
adequate to build an input data deck and that further source interrogation is required. 
Assuming the required sources are available, then the task of assembling the infor- 
mation into the input data deck format can be accomplished. The following sub- 
paragraphs elaborate on the data reduction aspects of this task. 

2.2.1 Sample S 3 '^stem Performance and Component Data 

2.2. 1. 1 Dut}^ Cycle. For the AC PS sample problem a tv'elve burn duty cycle rep- 
resentative of the total burn and coast times for a typical orbiter seven day mission 
was selected. The duty cycle events and pertinent propellant consumption data 
obtained from the referenced study are presented in Table 2.2-1. 
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( 

TABLE 2.2-1 


ACPS DUTY CYCLE 


Event 

Activity 

Duration 

(sec) 

Mission 
Time (min. ) 

0 _-Used 

ribs) 

IL-Used 

^(Ibs) 


Coaat-l 

sec 

0-9.0 

- 

m 


Burn -1 

4.58 sec 

9.0-9.07 

50 

14 


Coast -2 

7975 sec 

9 .crT‘-l 42 . 

m 

- 


Bum -2 

6.15 sec 

142 . 0 - 142.1 

67 

19 


Coast - 3 

2094 sec 

142 . 1-177 

- 



Burn - 3 

3.58 

177 • 0 - 177 * 06 

39 

11 


Coast-U 

536 sec 

177.06-186 

- ' 

- 


Bum-U 

38.8 sec 

186.0-186.65 

423 

120 


Coast -5 

2061 sec 

186.65-221 

- 


10 

Burn - 5 

7*43 sec 

221 . 0 - 221.12 

81 

23 

11 

Coast -6 

593 sec 

221.12-231 

m 


12 

Bura -6 

3*58 sec 

231.0-231.06 

39 

11 

13 

Coast -7 

536 sec 

231 . 06 - 240 . 

m 

m 

lU 

Burn -7 

66.1 sec 

240 . 0 - 241.1 

720 

204 

15 

Coast -8 

714 sec 

241 . 1 - 253 . 

- 

- 

16 

Burn -8 

32.3 sec 

253.0-253.54 

352 

100 

17 

Coast -9 

568 sec 

253.54-263. 

- 

m 

18 

Bum -9 

104.1 sec. 

263.0-264.74 

1135 

320 

19 

Coast -10 

1876 sec. 

264.74-296 

- 

- 

20 ' 

Bum -10 

31.9 sec 

296.0-296.53 

348 

96 

21 

Coast -11 

571,048 sec 

296. 53-9314. 

- 

- 

22 

Bum -11 

16.16 sec 

9814. 0 - 9314 . 27 

176 

50 

23 

Coast -12 

9584 sec 

9814.27-9974 

- 

- 

2 U 

Bum -12 

100 sec 

9974.0-9975.67 

1090 

310 

Total Deliverable 

4520 

1278 



Total Propellant: 

5798 


M.ItB. degradation; = O.9O 
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2 . 2. 1. 2 Engine Data. The rocket engine characteristics employed in the problem 
are given as follows: 


Number of Engines 

3 

Engine Thrust 

1750 lb 

Engine 1^^ 

420 sec 

Expansion Ratio 

40:1 

0/F Mixtvire Ratio 

4:1 

Propellant Inlet Temp 

350°R 

Propellant Inlet Pressure 

400 psia 

Chamber Pressure 

250 psia 


2.2. 1. 3 Accumulator Data. The system requires two high pressure accumulators, 
one for each of the propellant gases. The accumulator characteristics. employed in 
the sample problem are as follows; 


Characteristic 

02-Accum. 

H2-Accum. 

Accumulator Code 

ACOl 

AC 02 

Maximum Diameter (ft) 

2.05 

5.2 

Volume (ft^) 

2.5 

72.5 

Nominal Temp (°R) 

350. 

350. 

Nominal Press, (psia) 

2000. 

2000. 

Material Type 

5.5. 

5.5. 

Insulation Type 

CDAM/T.G. 

CDAM/T.G. 

Insulation Thickness (in.) 

2.0 

2.0 

Est. Heal Leak Rate (Btu/hr) 

0.1 

0.2 

Allowed Pressure Swing (psi) 

500. 

500. 


2.2. 1.4 Heat Exchanger Data . The concept requires two heat exchanger -gas generator 
sets for vaporization of the cryogen fluids. The heat exchanger and heat source 
characteristics employed in the problem are given as follows: 
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Oxygen 

Hydrogen 

Characteristic 

Side 

Side 

Heat Exchangers; 



Heat Exchanger Code 

HXOl 

HX03 

Hot Fluid Inlet Temp (°R) 

2000. 

2000. 

Hot Fluid Outlet Temp (°R) 

1100. 

1028. 

Cold Fluid Inlet Temp (°R) 

173. 

42. 

Cold Fluid Outlet Temp (°R) 

350. 

350. 

Hot Fluid Nominal Pressure (psia) 

245. 

500. 

Cold Fluid Nominal Pressure (psia) 

2000. 

2000. 

Hot Side Delta -P (psi) 

30. 

30. 

Cold Side Delta -P (psi) 

30. 

10. 

Hot Side Nominal Flow Rate 
(Ib/sec) 

0.6 

2.6 

Cold Side Nominal Flow Rate 
(Ib/sec) 

12.3 

4.3 

Heat Source: 



Type 

Gas Gen 

Gas Gen 

0/F Mixture Ratio 

1:1 

1:1 

Outlet Temperature (°R) 

2060, 

2060. 

Chamber Pressure (psia) 

245. 

500. 

External Available Energy (Btu) 

0. 

0. 

2.2. 1. 5 Pump and Turbine Data. Two pump and drive turbine sets are required 
for the concept being considered. The pump and turbine characteristics employed fc 

the sample problem are presented as follows: 

Oxygen 

Hydrogen 

Characteristic 

Side 

Side 

Pump: 



Pump Code 

HPOl 

HP02 

Type 

Turbo -Fhimp 

Turbo -Pump 

Pumi) Efficiency (%) 

52. 

54. 
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Characteristic 

Oxygen 

Side 

Hydrogen 

Side 

Pump; (Cent) 



Pump NPSP (psia) 

8.7 

1.1 

Pump Shaft Speed (rpm) 

20,000 

70,000 

Pump Outlet Pressure (psia) 

2023. 

2023. 

Pump Inlet Pressure (psia) 

17. 

17. 

Pump Inlet Temperature (°R) 

165. 

37. 

Pump Drive: — Gas Turbine 



Turbine Code 

GTOl 

GT02 

Turbine Mixture Ratio 

0.891 

0.891 

Turbine Inlet Temperature (°R) 

2000. 

2000. 

Turbine Delta-P (psi) 

230. 

480. 

Turbine Delta-T (°R) 

840. 

840. 

Turbine Efficiency (%) 

55. 

36. 

Turbine Inlet Pressure (psia) 

250. 

500. 

2.2. 1.6 Cryogen Supply Tankage Data. One tank is required for each cryogen fluid. 
Initially, it is assumed that the tanks are spherical since the program will add cylindrical 
sections to the tanks if the fluid volume exceeds that of a sphere having an input 

maximum diameter. 



The tankage characteristics employed in this problem are as follows: 


Characteristic 

LOg Tank 

LHg Tank 

Tank Material 

2219-Al 

2219-Al 

Number of Tanks 

1. 

1. 

Tank Code 

TKOl 

TK02 

Acquisition Device 

Surf Tension 

Surf Tension 

Insulation Type 

DGM/SN 

DGM/SN 

Pressurization Type 

Cold He 

Cold He 

Fluid Initial Temp (°R) 

165. 

37. 
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Characteristic 

LOg Tank 

LHg Tank 

Tanlc Initial Pressure (psia) 

16. 

16. 

Pressurant Gas Temp (°R) 

170. 

40. 

Tank Operating Pressure (psia) 

26.7 

19.1 

Tank Vent Pressure (psia) 

31.7 

24.1 

2 

Estimated Heat Leak (Btu/hr-ft ) 

0.1 

0.2 

Insulation Thickness (in. ) 

2.0 

2.0 

Optional Input — Fluid Loaded (lb) 

(Omit) 

(Omit) 

Initial Percent Ullage 

3.0 

3.0 

Tank Maximum Diameter (ft) 

5.07 

5.0 

Tank Heat Exchanger Outlet Temp (°R) 

NA 

NA 

Tank Heat Exchanger Delta -P (psi) 

NA 

NA 

Tank Circular Pump Delta^P (psi) 

NA 

NA 

Tank Heat Exchanger — 



Gas Gen Outlet Temp (°R) 

NA 

NA 

Gas Gen Chamber Pressure (psia) 

NA 

NA 

Gas Gen Mixture Ratio (0/F) 

NA 

NA 

Tank Insulation — Layer sAnch (Optional) 

(Omit) 

(Omit) 


2.2. 1.7 Lines, Controls, and Fittings Data. For the sample problem, all lines, 
valves and fittings are stainless steel, and are insulated where necessary with one- 
half inch of CDAM/TG insulation having a layer density of thirty layers per inch. 

2.2. 1. 8 System Configuration Data. The remaining data to be assembled quite ofteE 
proves to be somewhat time consuming, primarily, because in the concept stage (or, 
even in the early design stages) no one seems to know how long the pipes are. Ther 
fore , one obtains a large set of vehicle drawings and proceeds to obtain approximate 
lengths even though they are subject to changes. The task, at hand, is to convert the 
system process schematic into a configuration table with a close resemblance to wha 
the actual system will look like. This is best accomplished by detailing the data for 
oxidizer side of the system first, followed by the data for the fuel side. The data 
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collected should be listed in the order required for data deck input. Considerable 
time may be saved by using 80 column kejTJvmch worksheets with appropriately ruled 
and labeled columns for data collecting sheets and data card production. The basic 
information required for the configuration data table as derived from Fig. 2 . 2-1 
and supporting data is presented in Tables 2.2-2 and 2.2-3. The data table will also 
require the use of some of the information developed for the larger components 
discussed in previous subsections. 

2.3 PROBLEM DATA DECK 

The sample problem data previously collected (subsection 2.2) can now be readied for 
the creation of an input data deck. Formatting information for the necessary data 
cards will be found in subsection 1. 5.2 in the card format illustration sheets (1.5.2. 1 
through 1.5 .2. 17). The ACPS sample problem data input deck produced from the fore- 
going procedure is listed in Table 1.5. 5-1. 

Input Data Decks for other systems are created in the same general fashion as 
employed for the sample problem. 

f 

2.4 PROBLEM TABLE DATA REQUIREMENTS 

While the data tables currently included in the Math Model Program , are adequate for 
the sample and test problems used for program checkout , there is no assurance that 
this is so for more advanced systems. Therefore, it is incumbent upon the program 
user to examine his system carefully for new table data requirements and make the 
necessary table substitutions as needed. The following tables are most likely to 
need either updating or the substitution of a complete new table of data: 


Table Number of 

Nnrnhpr Descriptive Title Dimensions 

1 RCS — Thruster Weight ^ ^ 

2 RCS — Vac Sp Impulse 3 

9 0MS — Engine Weight 3 

10 0MS — Vac Sp Impulse 3 
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Table 2.2-2 


CONFIGURATION DATA FOR ACPS - OXYGEN SIDE 


Item 

I.D. 

Item 

Code 

Number 

Oper 

Number 

Stby 

Diameter 

, (in-) 

Length 

(in.) 

Friction 

Factor 

f (L/D) 

Fluid 

State 

Gas 

02-VAP 







G 

Engine 

ENGl 

3 

0 





G 

Line 

LNOl 

3 

0 

2.0 

110.0 

0.0095 

— 

G 

Tee 

FTOl 

1 

0 



0.0095 

126.3 

G 

Line 

LN02 

1 

0 

2.0 

150.0 

0. 0095 


G 

Tap 

FT02 

1 

0 



0.0095 

10.5 

G 

Line 

LN03 

1 

0 

2.0 

24.0 

0.0095 


G 

Valve 

IVOl 

1 

0 



0.0095 

10.5 

G 

Line 

LN04 

1 

0 

2.0 

12.0 

0.0095 


G 

Valve 

CV02 

1 

0 



0.0095 

135. 0 

G 

Line 

LN05 

1 

0 

2.0 

40.0 

0.0095 


G • 

Tap 

FT03 

1 

0 



0.0095 

10.5 

G 

Line 

LN06 

1 

0 

2.0 

20.0 

0.0095 


G 

Reg 

PROl 

1 

0 



0.0095 

336. 8 

G 

Line 

LN07 

1 

0 

2.0 

30.0 

0. 0095 


G 

Accum 

ACOl 

1 

0 



NA 


G 

Line 

LN08 

1 

0 

2.0 

24.0 

0.0095 


G 

HEX 

HXOl 

1 

0 



NA 


G/L 

Gas 

02-LIQ 

- 




NA 


L 

Line 

LN09 

1 

0 

1.0 

12.0 

0.0180 


L 

Valve 

CVOl 

1 

0 



0.0180 

65.5 

L 

Line 

LNIO 

1 

0 

1.0 

12.0 

0.0180 


L 

Pump 

HPOl 

1 

0 



NA 


L 

Line 

LNll 

1 

0 

1.5 

160.0 

0.0180 


L 

Valve 

SVOl 

1 

0 



0.0180 

6.7 

L 

Line 

LN12 

1 

0 

2.5 

12.0 

0.0180 


L 

Tap 

FT04 

1 

0 



0.0180 

6.7 

L 

Line 

LN13 

1 

0 

2.5 

24.0 

0.0180 


L 

Tank 

TKOl 

1 

0 



NA 


L 


LOCKHEED MISSILES & SPACE COMPANY 


Table 2.2-3 


CONFIGURATION DATA FOR ACPS - HYDROGEN SIDE 


Item 

I.D. 

Item 

Code 

Number 

Oper 

Number 

Stby 

Diameter 

(in.) 

Length 

(in.) 

Friction 

Factor 

f (L/D) 

Fluid 

State 

Gas . 

H2-VAP 

■ 






G 

Engine 

ENGl 

3 

0 





G 

Line 

LN21 

3 

0 

1.75 

110.0 

0.011 


G 

Tee 

FT21 

1 

0 



0.011 

109.0 

G 

Line 

LN22 

1 

0 

1.75 

150.0 

0.011 


G 

Tap 

FT22 

1 

0 



0.011 

9.0 

G 

Line 

LN23 

1 

0 

1.75 

24.0 

0.011 


G 

Valve 

IV 02 

1 

0 



0.011 

9.0 

G 

Line 

LN24 

1 

0 

1.75 

12.0 

0.011 


G - 

Valve 

CV04 

1 

0 



0.011 

86.0 

G 

Line 

LN25 

1 

0 

1.75 

40.0 

0.011 


G 

Tap 

FT23 

1 

0 



0.011 

9.0 

G 

Line 

LN26 

1 

0 

1.75 

20.0 

0.011 


G 

Reg 

PR02 

1 

0 



0.011 

336.4 

G 

Line 

LN27 

1 

0 

1.75 

30.0 

0.011 


G 

Accum 

AC 02 

1 

0 





G 

Line 

LN28 

1 

0 

1.50 

24.0 

0.011 


G 

HEX 

HX03 

1 

0 





G 

Gas 

H2-LIQ 







G/L 

Line 

LN29 

1 

0 

1.50 

12.0 

0.011 


L 

Valve 

CV03 

1 

0 



0.011 

9.0 

L 

Line 

LN30 

1 

0 

1.50 

12.0 

0.011 


L 

Pump 

HP02 

1 

0 





L 

Line 

LN31 

1 

0 

2.0 

120.0 



L 

Valve 

SV02 

1 

0 




5.6 

L 

Line 

LN32 

1 

0 

2.0 

12.0 



L 

Tap 

FT24 

1 

0 




5.6 

L 

Line 

LN33 

1 

0 

2.0 

24.0 

0.018 


L 

Tank 

TK02 

1 

0 





L 

End 
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Table 

Number 

Descriptive Title 

Number of 
Dimensions 

11 

HEX Hj^t Gas Flow - lj0^ 

5 

12 

HEX Hc^t Gas Flow - LH 2 

5 

13 

Gas Generator Weight 

4 

14 

L02 ~ Transfer Pump Weight 

5 

15 

LH 2 — Transfer Pump Weight 

5 

16 

Motor Weight (Elec) 

3 

17 

Vac Jacket Diameter vs Weight 

2 


Care should be exercised in constructing the new table to insure using the same numl 
of dimensions (variables) as in the original table, otherwise, the coding in the sub- 
program table -calling sequence will have to be changed for each place the table is 
called upon. 
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2.5 PROBLEM DATA OUTPUT 

I * . 

This subsection presents the entire output for the AC PS sample problem. The 
output, which follows, is indexed by page number in the header -box top left corner. 
This index will be used in describing the several output sections produced in the run. 

2.5.1 Output Description 


Page 1 
Page 2 

Pages 3 , 5 
Pages 6, 11 
Page 12 

t 

Page 13 
Pages 14,15 

Pages 16, 17 

Page 18 
Page 19 


Table Data Input Summary — 

Lists the tables loaded for the program run. 

System Input Verification — 

Verifies the system name called for on System Definition 
Card. 

System Configuration and Duty Cycle Data — 

Echo of data in Input Data Deck. 

Echo of Major System Component Data — 

From Input Data Deck. 

Start of Program Calculations; 

Computed Engine Parameters — 

Characterizes engine weight, propellant consumption 
3nd Igp- 

Computed Flowrate Data — 

Presents flowrate required for subsystem cryogen consumers 
and total flowrate from fluid tanks . 

Computed System Configuration Parameters — 

Presents computed temperature , pressure, flowrate, flow 
condition and weight for each component item in system 
configuration. 

Computed Heat Exchanger and Gas Generator Characteristic 
Parameters — 

Presents summary characteristics and weight data for heat 
exchangers and associated gas generators. 

Computed Ihimp and Turbine Characteristics — 

Presents summary characteristics and weight data for pumps, 
turbines and turbine gas generators. 

Initial Tank Sizing Calculations — T 

Presents initial tank size and weight data computed on first 

estimate basis . 
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Pages 20, 32 
Pages 33, 45 
Page 46 

Page 47 
Page 48 
Page 49 


Tank and Vent Parameter Calculations — 

Characterizes oxygen tank history conditions for each Coast 
and Burn period of mission duty cycle. 

Tank and Vent Parameter Calculations — 

Characterizes hydrogen tank history conditions for each 
Coast and Bimn period of mission duty cycle. 

Final Tank Sizing Calculations - 

Presents final tank size and weight data based upon detailed 
calculation of fluid requirements over integrated mission 
duty cycle span. 

Accumulator Sizing Calculations — 

presents accumulator sizing and weight data computed in 
program. 

Tank ITopellant Acquisition — Device Computation — 
presents acquisition device computed weight, trapped 
propellant weight, and tank residual -propellant weight. 

Component Weight Summary and System Weight Summary — 
Presents a summary of individual component weights and 
corresponding insulation weights. Presents subsystem and 
systems weight totals. 


The following pages present the detailed sample problem output. 
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C-F.PT 6a 1 3 * THE IHTEGRATEn tlATH MODEL * BATE |7 APR Tl 

EXT. 3023S * * TIME ISlOimo 

SLO. IO^ * ATM307 * CASE I 

•It H * It * it ♦ ft -h * H It H :H it it * ■* H it it it it it it ^ * it it it it it it it # •* * it 

ACPS - TEST DEHOMSTRATXOH PROBLEM 
TABLE INPUT SUMMARY 


TABLE 

TITLE OF TABLE 

NUMBER OF 

NUMBER OF 

number OF 

NUMBER 


DIMENSIONS 

suptables 

WORDS 

1 

RCS-THRUSTER WEIGHT 

4 

6 

122 

2 

RCS-VAC. SP. IMPULSE 

3 

3 

6B 

3 

spec.ht/i.b of oa HEf.oveo 

3 

S 

206 

i» 

SPFC.HT/l.B OF H2 HEMOVEO 

3 

S 

l«4 

5 

TEMP. /LB. OF oa REMOVED 

3 

S 

184 

6 

TEMP. /LP. OF Ms REMOVED 

3 

S 

192 

-7 

RR/ VS PGG»H/R»PAMB,PCHP 

S 

12 

9S 

3 

KX VS PCr.,M/RfPAMB.PCHP 

. B 

12 

9S 

9 

01 iS ENGINE WEIGHT 

3 

3 

SO 

10 

0!’.S VAC. SP. IMPULSE 

3 

3 

6B 

1 1 

HEX MOT 6AS FLOW - l.oa 

S 

24 

133 

12 

HEX HCT GAS FLOW - LM2 

S 

12 

T| 

13 

GAS GEUIERATOR HEIGHT 

4 

10 

220 

I't 

L02 TF.A^iSFER PUMP WEIGHT 

S 

8 

no 

IS 

LH2 TRANSFER PUMP WEIGHT 

S 

8 

138 

16 

MOTOR height 

3 

, S 

lao 

17 

VAC, JAC.riA, VS. WEIGHT 

2 

1 

34 

18 

PHI - hyprogen 

3 

S ' 

172 

17 

temp, of h2 vs RHO F(P» 

3 

S 

180 

20 

HT.xrcn.coEF.-Ha 

3 

4 

106 

21 

HT.XFCn.COEF.-Oa-Na 

3 

4 

138 

22 

FTH OF 321/347 ST. STEEL 

2 


32 

23 

FTU OF apIR-TOT ALUM. 

2 


36 

24 

FTU OF 6061-76 ALUMINUM 

2 


30 

2S 

FTU OF IMCOflCL-710 

2 


30 

26 

FTU OF TI-6AI.-4V 

2 


30 

27 

HEAP coefficient VS NS 

2 


34 

20 

ADIAPATIC EFF. VS NS 

. 2 


44 

29 

EFFIC. OIIOT.VS IMP, niAM 

2 


46 

30 

BASF LIME STAGE WT VS 01. 

2 


28 

31 

sathratep steam, t.vs p. 

■/2 


46 

32 

SP.HT. OF O-'l COMB, prod. 

'3 

4 

1 14 

33 

OXYGEN IMTERHAL ENERGY 

3 ■ 

■> 

166 

34 

hydrogen internal energy 

3 

S 

216 

3S 

OXYGEN IrlTERHAl. ENERGY 

3 

S 

14a 

36 

oxygen VAPOR PRESSURE 

3 

s 

166 

37 

HYDROGEN VAPOR PRESSURE 

3 

s 

216 


OXYOEN VAPOR PRESSURE 

3 

s 

143 

39 

ENTHALPY OF LOa 

2 

1 

46 

40 

enthalpy of LH2 

2 

1 

24 

41 

enthalpy of HELIUM 

3 

s 

142 

42 

oxvgen Enthalpy (gas) 

3 

s 

98 

43 

HYDROGEN ENTHALPY (CAS) 

3 

s 

122 

44 

BETA FACTOR 

2 

1 

28 

4S 

SIGMA-DCLTAP FOR HEXELC - 

, 3 

s 

172 

46 

beta VALUES FOR H2 

' 3 

s 

total table storage 

l68 
S S024 



CO 

CO 

05 
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NAi;E 

USERS name 

* 

DEFT 

62H 

* 

EXT. 

TU23S 

■* 

BLn. 

lOM 

* 


a -k * * -k * h It It h 


<»****♦***♦****★***** PAGE 2 

THE INTErtRATEn HATH MODEL * DATE (7 APE 7l 

* TIHE IStOU‘49 

ATMIOT * CASE I 

***************************** 

ACPS - TEST OEMONSTHATlON PROBLEM 


*** YOU HAVE CALLED POR THE SYSTEM ACPS *** 



/ 








OAl.t 

LEFT 

6211 


w 

if 

THE INTEGRATED HATH MODEL 

* 

r uur 
DATE 

17 APR 71 









EXT. 

10211 


* 



* 

TIME 

IStOI tU9 









BLD, 

!0M 


* 


ATmoT 

if 

CASE 

1 









■■* * * 

♦ ★ * 

* * * 

* 

******** 

******** 

* * * * 

* * * 

* * * * * 

■* 












ACPS - TEST 

DEHOHSTRATIOM 

PROPLEM 













***** 

SYSTEM C 

0 N F 1 6 1) R A 

T I 0 N 

***** 







COMP 

COUP 

FOMr. 

NLI;R, 

NO|-b, 

hatrl 


FLOW friction 

LINE LENGTH 

line 

INSULATION 

INSULATION 

NO, LAYItPS 




Name 

CUKE 

type; 

OPER. 

sTr»y, 

TYPE 


COEFICIEMT 

OR L-OVER-D 

DIAMETER 


TYPE 

THICKNESS 

INSULATION 


r 

o 


CAS 

02-VAP 

1 

1 

0 

0 


,00000000 

.00 

.00 


0 

.00 

.0 


n 


rOiilNE 

ri:Gi 

u 

1 

0 

n 


.00000000 

.00 

.00 


0 

.00 

.0 



i.i:;e 

l.liO 1 

lu 

1 

0 

1 


,9S000n00-02 

MO.no 

2.00 


M 

.SO 

10.0 


T- 


TEi; 

ETOI 

21 

1 

0 

1 


,9SOnonoo-02 

126.10 

.00 


0 

.00 

.0 


Jm 

m 

m 


UltlE 

LOG 2 

lu 

1 

0 

1 


.9SOOOOOO-02 

ISC. 00 

2.00 


4 

.SO 

10.0 



TAT- 

FT02 

11 

1 

0 

1 


.99000000-02 

ID. so 

,00 


0 

.00 

-.0 



LII E 

L^iG3 

10 1 

1 

0 

1 


,99000000-02 

24.00 

2.00 


M 

.SO 

10.0 


D 


VAl.VE 

IVOI 

11 

1 

0 

1 


.99000000-02 

10.90 

.00 


0 

.00 

.0 


2; 


1.1 IF- 

LOOM 

10 

1 

0 

1 


.99000000-02 

12.00 

2.00 


4 

.SO 

10.0 



VAl.VE 

Cvm2 

21 

1 

0 

1 


.99000000-02 

119.00 

.00 


0 

,00 

.0 


(/) 


L.i:iF 

LMiiS 

lu 

1 

0 

1 


.99000000-02 

Mo. 00 

2.00 


M 

.90 

10.0 


(/) 


TA!' 

ET'lI 

11 

1 

0 

1 


.9SO0CO00-C2 

10.90 

.00 


0 

.00 

.0 



N)- 

LlllE 

LriuG 

10 

1 

0 

1 


.99000000-02 , 

20.00 

2.00 


M 

.SO 

10.0 


r 

m 

cn 

1 

i.rr- 

EKOI 

12 

1 

0 



.99000000-02 

116.80 

.00 


0 

.00 

.0 



LINE 

LOOT 

10 

1 

0 



.99000000-02 

10.00 

2,00 


4 

.SO 

•10.0 



ACCOM 

ACO t 

0 

1 

0 

1 


.ooooooco 

.00 

.00 

• 

4 

2.00 

10,0 




l.I"E 

LfloH 

lu , 


0 



.99000000-02 

2M.00 

2.00 


4 

.so 

10.0 



1 

0X0 i 

1 

1 

0 

1 


.00000000 

.00 

.00 


0 

.00 

.0 


V) 


GAS 

Ofl-LIO 

1 

2 

0 

0 


.00000000 

.00 

.00 


0 

.00 

.0 


TJ 


LIKE 

LfiO" 

10 

1 

0 

1 


. 1 Boncnoo-ol 

I2.no 

1.00 


4 

.so 

10.0 


> 


VAl.VE 

CVOl 

11 

1 

n 

1 


, 1 8000000-01 

.no 

.on 


0 

.00 

,0 


0 


LIME 

LfMO 

1 0 

1 

0 

I 


. 1 8O0COO0-CI 

I2.no 

1 .00 


4 

.so 

10.0 


m 


F"i:P 

nP'il 

21 

1 

0 

1 


.00000000 

.00 

.00 


0 

.00 

.0 



LINK 

L^ll 1 

10 

1 

0 

1 


, 1 8000000-01 

160.00 

1 .90 


4 

.so 

10.0 


0 


valve 

SVdi 

21 

1 

0 

1 


.19000000-01 

6.67 

,00 


0 

.no 

.0 


0 


LIKE 

Lot 2 

10 ' 


d 

1 


. 19000000-01 

12.00 

2, so 


4 

,so 

10.0 


2 


TM' 

ETC-4 

11 

1 

0 

1 


. 19000000-01 

6.67 

.00 


0 

.00 

.0 


Tj 


like 

L0I3 

1 0 

1 

0 



.19000000-01 

2M.no 

2, so 


4 

.so 

10.0 


> 


TALK 

TK-;; 1 

0 

1 

0 

2 


.oononocn 

.no 

.00 


4 

2.00 

10.0 


z 


GA? 

112-VAP 

2 


0 

0 


.onooooco 

.00 

,00 


n 

.00 

.0 


-< 


LKNIflE 

r.MGi 

0 

1 

0 

0 


.ooooooco 

.00 

,00 


n 

.00 

.0 




Liiif: 

Lf:2l 

in 

1 

0 

1 


. 1 loocnoo-oi 

110.00 

I.7S 


4 

2.00 

10.0 




TEK 

ETil 

21 

1 

0 

1 


. 1 lOOCnoo-Ol 

109.00 

.00 


0 

.00 

.0 




lime 

LI.'22 

|0 

1 

0 



. 1 |000000-0| 

I9C.OO 

I.7S 


4 

2.00 

10.0 




TA-' 

FT22 

11 

1 

0 

1 


. 1 lOOOOOO-OI 

9.00 

.00 


0 

.00 

.0 

0 



LIKE 

LN21 

10 

1 

0 

1 


. 1 1 ooonoo-oi 

2M.no 

I.7S 


4 

2.00 

10.0 




VALVE 

IVC.2 

11 

1 

0 

1 


• . 1 looonco-oi 

9.00 

,00 


0 

.00 

.0 

CD 



Lli^E ' 

L02M 

lu 

1 

0 

1 


. 1 looonoo-oi 

12.00 

I.7S 


U 

2.00 

10.0 

CO 



VAl.VE 

CVC'4 

21 

1 

0 

1 


. 1 iooonco-0 1 

36.00 

.00 


0 

.00 

,0 

CO 



LIKE 

L02S 

10 

) 

0 



. 1 inocooo-nl 

MO. on 

I.7S 


4 

2.00 

10.0 

CO 

a> 



TAf 

FT23 

11 

» 

0 

1 


. 1 10000(10-01 

9.00 

,00 


0 

.00 

.0 



l:,';e 

LK2G 

10 

i 

0 

1 


. 1 loocnoo-di 

20.00 

I.7S 


4 

2.00 

10.0 




PEG 

rtO'2 

12 

1 

c 

1 


. 1 loncoon-oi 

116.M0 

.00 


0 

.00 

.0 




LIKE 

Lr;27 

10 , 

1 

0 

1 


. 1 loncooo-oi 

10.00 

I.7S 


4 

2.00 

in.o 




ACCOM 

A CO 2 

0 

1 

c 

1 


.00000000 

.00 

.00 


4 

2.00 

in.o 
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r 

0 

0 

X 

m 

m 

0 
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******* 
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* * 








ACPS - TEST 

OFMOHSTRATION 

PR0RLEI1 









***** 

SYSTEM C 

0 N F 1 G U H 

A T I 0 N 

***** 



COMP 

COUP 

FUNC. 

|!Ui:b, 

NUMB, 

HATRL. 

FLOW friction 

LINE LENGTH 

LINE 

INSULATION 

INSULATION 

NO. LAYERS 

name 

C'UE 

TYPE 

OPER. 

STBY, 

TYPE 

COEFICIENT 

OR LrOVER-D 

DIAMETER 

TYPE 

THICKNESS 

INSULATION 

LIfiE 

LN28 

<U 

1 

0 

1 

. 1 loncooo-oi 

24.00 

1 .SO 

4 

2 , no 

30.0 

liE>: 

I!XG3 

1 

1 

0 

1 

.ooooonoo 

.00 

.00 

0 

.no 

.0 

GAS 

C2-U0 

2 

2 

0 

0 

.ooononoo 

.00 

.00 

0 

.00 

.0 

LI'IE 

utir.fl 

10 

1 

0 

1 

, 1 inoonoo-oi 

12.00 

i.so 

4 

2.00 

30.0 

»/A| VE 

CVi3 

31 

1 

0 

1 

. 1 loocnoo-ni 

4.00 

,00 

0 

.00 

.0 

LIME 

i.cm 

I'J 

1 

0 

1 

. 1 looonon-ot 

12.00 

1 .so 

4 

2.00 

30,0 

fL'hP 

l!P02 

21 

1 

0 

1 

.onooonon 

.00 

.00 

0 

.00 

.0 

Lif.'E 

LfCJ 1 

iu 

1 

0 


.18000000-01 

•20.00 

2.00 

4 

2.00 

30.0 

VALVE 

SVC 2 

21 

1 

0 

I 

. 1 auofiooo-oi 

4.60 

.00 

0 

,00 

.0 

LH'E 

LM12 

IU 

1 

0 

I 

. tfiOOOOOO-OI 

12.00 

2.00 

4 

2. on 

30.0 

TAP 

^-T2^ 

31 

1 

0 . 

1 

.18000000-01 

4.60 

.00 

n 

.00 

.0 

LICE 

LH33 

IU 

1 

0 

1 

.loononoo-ot 

24.00 

P.OO 

4 

2.00 

30.0 

• tack 

TKC2 

U 

1 

0 

?. 

.ooooonoo 

.00 

.00 

4 

2.00 

30.0 

to EflC- 


U 

0 

0 

0 

.00000000 

.00 

.00 

0 

.00 

.0 


I 


00 
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, 

EXT. 3 02 1*; 

★ 





* TIME 

IStOI lS| 



IM.D, lOM 

•* 




AT4307 

* CASF 

1 



**<•*★* 

**«««** 

* . 

* 

* * 

******** 

******** 

****** 



1 


ACP 

s 

- TEST OEHONSTRATICN 

PROBLEM 




' 

***** 0 

u 

T 

Y 

CYCLE DA 

T A ***** 

- 


oPcn.TiMr. 

KOM-CPKRATIMfj 

CIB-DECRAD. 

UNITS OPER. HORSEPOWER 

AMB.PPESSHPE 

POWER-KW 

REPRES,T!ME 

.ifSHOouno+oi 

'.•5MC0C0O0+01 

.RQOOOOQO+00 



1 

,00000000 

,00000000 

.00000000 

.00000000 

i6isooonn+oi 

’.T'JT'-, 0000+04 

.90000000+00 



3 

,00000000 

,00000000 

.ooonocoo 

,00000000 

i'i'ikuiut.inn-t.oi 

I .20040000+04 

.90000000+00 



3 

,00000000 

,00000000 

,00000000 

,00000000 

il£H(;oot)f)*oa 

.si6r.ooon+oi 

.90000000*00 



3 

,00000000 

.00000000 

,00000000 

,00000000 

iTmC'OODO+Ol 

.2nftiooo(t+o4 

.90000000+00 



3 

,00000000 

,00000000 

.00000000 

,00000000 

;i‘ihOOUOO + Ol 

.S'Jincnoo+oi . 

.90000000+00 



3 

,00000000 

,00000000 

,00000000 

,00000000 

;66IC(J00n-i.02 

* .S'}<^ni'oon+oi 

.90000000+00 



3 

,00000000 

.oooonooo 

,00000000 

.oooonooo 

lipiouoonAO? 

.71’!(}0fM)O + ni 

.90000000+00 



3 

.00000000 

,00000000 

.oronnooo 

,00000000 

ii I'cHiouiir.+ni 

.S6?noo(in^n3 

.90000000+00 



3 

,00000000 

,00000000 

,00000000 

,00000000 

;3l‘»CC(J0n*iJ2 

. 16760000+04 

.90000000+00 



3 

.ooooooco 

,00000000 

,00000000 

.oooonooo 

^ i6ifcoijori*u2 

• S7|048(i0*06' 

.90000000+00 



3 

.00000000 

.00000000 

.Poonnono 

.oooonooo 

; iofu;ounn*03 

.‘J';64COOC+04 

.90000000+00 



3 

.ooooooco 

,00000000 

,00000000 

,00000000 

^ocu'jonun 

,-.10000000+01 

.00000000 



0 

.00000000 

.00000000 

.00000000 

.oooonooo 




i 


/ 



LMSC-A991396 


LOCKHEED MISSILES & SPACE COMPANY 


NArn USERS name * * * * 
cErr 6211 * . 

EXT. 1021S * 

BLD, IDS * 

************* 


* 1c 

the 


* <r * 

ACPS 


A*****"********* PACE 6 
INTE6RATED M/.TH MODEL * DATE |7 APR 71 

* TIME ISIOI tS| 

ATmoT * CASE I 

************************ 

- TEST DEMOliSTRATIOH PROBLEM 


***** engine 1>ATa a**** 


1 

,isdoooor.+oi 

.LOOOOOOO+OI 
. I7SOOOOO+OR 
, 2 S 000000*01 
,H000n000+02 
.^ 0000 C 00 « 0 l 


MIIMnPR OF EMC I MRS 
CAS INLET TEMP. 
CAS INLET PRES. 
EHCINE THRUST 
OiAltSFR PRES. 
EXPANSICM RATIO 
MIXTURE RATIO 


to 

I 

CO 

o 


> 


CO 

CO 


CO 

CO 


-OSIAIl 



LOCKHEED MISSILES 8c SPACE COMPANY 


t'frrr Aan * the integrated hath model * date it apr t** 

CXT. ‘}021'j , * * TIME |S:0|lS| 

aUD. lo'l * ATMTOT * CASE I 

**************************** 
ACf'S - TEST DEMOUSTRATION PROBLEM 

***** tank data ***** 


I 

1 

i 2 

2 

2 . 

i .I 6 B 0000040 T 

, 16000000+02 
, 17000000+03 
. 26700000+02 
. 3 I 7 C 000 C+C 2 

j , 20000000+00 

, 20000000+01 
.ocnooooo 
. 30000000+01 

_ , .SC 660000 + 0 I 

I . .00000000 

^ . .00000000 

.00000000 
,00000000 
I ,00000000 

.ocoooooo 

,00000000 

i ■ I 

0 


1 NUMRER OPERATING (NOP) 

t ACOUISITIOM TYPE 

2 INS'il.ATlOfJ TYPE 

2 MATERIAL TYPi: 

. 2 pressurization type 

.37000000+02 INITIAL TEMPERATURE (R) 

.16000000+02 initial fRESSunE 

, 1(0000000+02 PRESSURAfiT GAS TEMp. (R) 

.19100000+02 OPERATING PRESS. (PSIA) 

.24100000+02 VENTING PRESSURE 
.30000000+00 HEAT Fl.UX ( nTU/HR-FT**2 ) 

,20000000+01 imsulatiom thickness 

.00000000 INITIAL FLUID LOAD (OPT) 

,30000000+01 PERCENT lU.l AGE VOLUME 
,sooonnnn+oi tiAXiiuin diameter (FT) 

.cnooQooo HEX outlet temp. (R) 

.onocnnnn hex delta press. (Psia) 

,00000000 PUMP delta press. (PSIA) . 

.coooonoo GAS gem outlet temp (R) 

.00000000 p sur, c of gas gfn (psia 
.cooooono GAS GEM MIXTURF PATIO 
.COOOOOOO KUHnER INSULATION l.AYERS 

Tank weight-configuration option considered 

number OF TANK SHAPES IN CONFIGURATION 


LMSC-A991396 


LOCKHEED MISSILES & SPACE COMPANY 


r AIT USr.BS NAME **■**»***»***»**«***** PACK fl 
tnrT 6211 * THE INTECftATED HATH MODEL * DATE |7 APR 71 

EXT. 10215 * * TIME tSiOl l5| 

El.P. lOM * ATmOT * CASE I 

i^***'4r«t*4r**A**i^***4»******<r******A****A*'*t 

ACPS - TEST DEHoHSTRATIoN PROBLEM 

***** accumulator data ***** 


I I mjUr.ER ORERATiriG (MOP) 

M M ILSULATIOM TYPE 

I I material type 

.isnooono+oi .ISOCOOOO + OI OPERATlfir, TFIiP. (DEG R) 

.2C0C0C00+0M ,20000000*04 OPFRATIMG PRESS. (PSIA) 

.10000000 + 00 .20000000+00 HEAT Fl UX ( RTD/HR-FT**? ) 

.20000000+01 .2OQ00OflC+O( IMSHLATIOH TLIOKMESS 

.25000000+01 .72500000+02 TAMK VOLUME (CU. FT.) 

.2CSOOOOO+OI .52000000+01 MAXIMUM DIAMETER (FT) 

.50000000+01 .50000000+01 MOf.TMAL OPER. DELTA PRES 

.00000000 ,00000000 MUnr.ER IMSULATIOM layers 


^a 

to 


LMSC-A9913S 



LOCKHEED MISSILES & SPACE COMPANY 


liAlt KMrU; wwnwwwwwifwwwnuww^^w.... r~wi. 

CrfT 621? * THE INTE6RATED MATH MODEL * DATE 17 APR 71 

EXT. 1021S * * TIME »SlOMS| 

tl.L. JOM * ATM107 * CASE I 

****«*«*** Ik*** *'**«**4k *****«*********’*** 

ACPS - TEST OEHOHSTRAT!OM PROBLEM 

***** meat exchanger data ***** 


NUMBER OF HEAT EXCHANGERS INPUT = I 


« 

1 “ 

- 2 - 


- 1 - 


- 14 - 


" S " 

HEAT EXCHANGER NUMBER 

oxygen 

hydrogen 

OXYGEN HYOrOGEN 

OXYGEN hydrogen 

OXYGEN HYDROGEN 

OXYGEN HYOROGEN 


2000,0 

2000, c 

.0 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX HOT INLET TFMP. 

1 lUQ.n 

IC20.C 

.0 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX ftOT outlet temp. 

171.0 

02.0 

.0 

.0 

.c 

.0 

.0 

,0 

.0 .0 

HEX COLD INLET TEMP. 

iso.o 

ISO.O 

.C 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX COLD OUTLET TEMP, 

EMS.n 

snn.o 

.0 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX HOT INLET PRES. 

'2IS.0 

. I'70.0 

.0 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX HOT OUTl ET PRES, 

Zi'iu.n 

2010.0 

.C 

.0 

.0 ■ 

.0 

.0 

.0 

.0 .0 

HEX COLD INLET PRES, 

2100.0 

2 onh.o 

.C ■ 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX COLD outlet PRES. 

• 10.0 

10,0 

.0 

.0 

. .0 

,0 

.0 

.0 

.0 .0 

HEX HOT SIDE OFLTA-P 

10,0 

10,0 

.0 

.0 

.0 

.0 

.0 

.0 

.0 .0 

HEX COLD SIDE OELTA-P 

1.0 

1.0 

.0 

.0 

.0 

.0 

.c 

.0 

.0 .0 

HEX GAS GEN, 0/E PATIO 


LMSC-A991396 


LOCKHEED MISSILES 8c SPACE COMPANY 


WM-t USl'RS NA«r * 

LEfT 6213 * 

F.XT. ■J923S * 

El.r, I OH * 

4»W******«r* 


+*♦** H 1 G 

H PRES 

PUMP DATA 

***** 

2 

2 

TYPE 


,S2nooono+oo 

.E4000000+00 

EFFICIEMCY 


,87000000+01 

, noooooo+oi 

UET ♦ SUCTION HEAD 

.2C00P000+0S 

.70000000+0S 

SHAFT SPFFD 


.20230000+04 

.20230000+04 

ESTIMATED DELTA 

PRES. 

■hhiiii'k L 0 

W PRES P 

U M P DATA 

***** 


**********<****»»***** PAOE 10 

THE iHTf.GRATEP MATH MODEL * DATE |T APR 73 

* TIME lEjOltSI 

AT^TO? * CASE • 

ACPS - TEST r>ElimiSTRATlDH PROBLEM 


.00000000 

,00000000 

.00000000 

.CCQOOOOO 


.00000000 

.00000000 

.00000000 

.00000000 


PUMP EFFICIF.IICY 
LET P05. SUCTION HEAD 
PUMP PRESSUPE RISE 

PUMP FLOW Rate 


to 

I 

to 


«*«** TUPniNE data **Kr** 


.RSOODOno+OO 

.2COOOOOO+04 
, I 1600000+04 
,99!0n000+00 
,asnooooo+o3 


,36000000+00 
.20000000+04 
. I 1600000+04 
.89100000+00 
.SOOOOOOO+03 


TURRINE efficifncy 
TURRINE IMLFT TEMP, 
TURRINF OUTLFT TEMP, 
TURRINE MIXTURE RATIO 

turbine oas gfu. psunc 


LMSC-A9913 



LOCKHEED MISSILES & SPACE COMPANY 


lEPT 6213 * THE INTEGRATED HATH MODEL * DATE IT APR 71 

EXT. 30?3S * * TIHE {5101:52 

ELI'. I0^ * ATMIOT * CASE I 



' ■* 

* p * * 

•* * ' # ■#' •* 

* * * * 

* * * * * 

**tlt ****** 

* * * * 

***** 

* ■* 







ACPS - TEST 

deiiokstration problem 






) 


***** H E 

AT SO 

UBCE DATA 

***** 






: 



NUMBER 

OF HEAT SOURCES INPl'T b I 

1 




f 

m 

1 - 1 

M 

?. » 


3 - 

« N - 


5 - 

heat 

SOURCE 

number 

OXYGEN 

hydrogen 

CXYGEIl 

hydrogen 

OXYGEN 

hydrogen 

oxvgen hydrogen 

OXYGEN 

hydrogen 




1 

1 

0 

0 

0 

0 

0 0 

0 

0 

HEAT 

SOURCE 

TYPE 

1 .n 

•|.0 

.0 

.0 

.0 

.0 

.0 .0 

.0 

.0 

HEAT 

SOURCE 

MIX. PATIO 

2060, n 

2040,0 

.0 

.0 

.0 

.0 

.0 .0 

.0 

.0 

HEAT 

SOURCE 

OUTIFT TEMP, 

,0 

I.C 

.0 

.0 

.0 

.0 

.0 .0 

.0 

.0 

HEAT 

SOURCE 

AVAIL, ENERGY 


soo.c 

.0 

.0 

.C 

.0 

.0 .0 

.0 

.0 

HEAT 

SOURCE 

PRESSURE 


I 


N) 

I ' 


I 


LMSC-A991396 


LOCKHEED MISSILES & SPACE COMPANY 


NAIT UStT.S NAI'.R ****************«><•*** PAGF 12 
t,nf’T 6? (3 * THr 1MTE6RATE0 HATH MCr-KL * DATE 17 APR 73 

EXT. 3J23S * * time IStOI»«>3 

ELD, lOM * ATH307 * CA$E I 

******* *************** ****************** 

ACPS - TEST OEIIONSTRATIOM PROBLEM 


*** iriniATE PROGRAM AND CHARArTEPlZE CONSUMER PARAMETERS ***' 


* COMPUTED engine PARAMETERS * 


EIJf.lME tSp 

ENGINE WEIGHT - (LBS) 

TOTAL ENGINE FLOW - (LR/SEC) 

ONE ENGINE CXIO.FLOW RATE-ILR/SEC) 
one ENGINE FUEL FLOW RATE-I LR/SEC ) 
THRUST IMPULSE PROPELLANT H6T, 


,N67l206Q+n3 

.ISP37S00+03 

.l2PR7BS0+n2 

,9O'302R0M + ni 

.2R97S70UOI 

,Sl7fi‘l6l7*0'4 


to 

to 

Oi 


LMSC-A99139 



LOCKHEED MISSILES & SPACE COMPANY 


deft 62 n * 

EXT, 3023S * 

ELP. I OH * 

i, n fi m * * * ft ■* n * * * * 


the UiTEGRATEO M/>TH MODEL 


* TIME 




AT»<3n7 * CASE 

It******'*********** 

ACPS - TEST DEHOHSTRATIOM PROBI.EM 


*** COMPUTED flowrate DATA *** 




OXIDYZER 

UDOT 

OX-TUED.-e.G, 

.ssir'5f>-oi 

(■'DOT 

HY-TU6R.-6.C, 

,370016+00 

UDOT 

DOTi: TUF.B.-GG 

.wpsim+on 

5;noT 

OXY HEX.-G.G, 

,300310+00 

l'Dot 

HYD HEX.-G.G. 

,I32‘5‘?W+0I 

v;ooT 

BOTi: HEX.-G.G 

. i 62626+0 1 

TOTAL FLOWRATE *» 

,l20m7+02 


to 

to 

<i 


) 


I 



ISlOl ISI 
I 

****** «r 


FUEL 

6 | 86 <) 6 > 0 | 

mSPflUOO 

M77ISU00 


300310+00 
132*5 <>U+0| 
162626+01 

M60098+OI 


LMSC-A991396 








NACE 

USERS 

NAME * * * 

****** 

* * * * 

* * * * 

* * * * 

PAGE 14 










DEFT 

6213 


A 

THE IUTEGRATEO HATH MODEL 

* 

date it APR 73 



- 







EXT. 

3023S 


* 




* 

TIME 15:01153 










ELD. 

104 


* 


AT4307 


* 

CASE 1 











•k * ft 

* * * 

* 

<f * * * * 

****** 

* * * » 

* * « * 

* * * * 

***** 

* * * * 














ACPS - TEST DEMONSTRATION 

PROBLEM 













*** 

summary of 

ccmputed system cgnfiguratioh parameters *** 






F 

CODE 

FT 

NO 

MS IS IDX 

G 

GS 

FCOF.F 

L/0 

D!AM 

I THICK 

PRES 

. TEMP 

WOOT 

HEIGHT 

MACH 

MFLA6 


GAS 

02-VAP 

1 

1 

0 

1 t 

1 

1 

.000000 

.0000 

.OOOC 

.0000 

.00 

.00 

.00 

.000 

.onononn 



£i;c 

ENOI 

0 


C 

i ** 

1 c. 

1 

1 

,000000 

.0000 

.0000 

.0000 

400,00 

350,00 

9,99 

59,375 

.0000000 



LIN 

LtiO 1 

0 

3 

c 

1 1 

i 

1 

.009S00 

1 1C. 0000 

2.0000 

,5000 

400.35 

350.00 

9,99 

4.009 

. 1 307053 



TKF 

FTUI 

( 

1 

fi 

t 4 

1 

1 

,009500 

126.3000 

2.nnno 

.0000 

407.49 

350.00 

9,99 

.433 

. 1280855 

• 


LIfi 

LNu2 

0 


c 

1 s 

1 

1 

,009500 

I5C.0000 

2.0000 

.5000 

411.66 

35o.no 

9,99 

5.466 

.1265442 


p 

TAP 

FTu2 

1 

1 

G 

1 6 

1 

1 

,009500 

1C. 5000 

2. 0000 

.0000 

412.25 

350,00 

12,04 

.342 

,1522731 


0 

LIfi 

Lf.'U? 

0 

1 

C 

1 7 

1 

1 

,009500 

24.0000 

2.0000 

.5000 

413.21 

350.00 

12.04 

.875 

.1518509 


o 

VaL 

IVul 

1 

1 

c 

1 H 


1 

.0O9SO0 

10.5000 

2.0000 

.0000 

410.05 

350,00 

12.04 

6.314 

. I5I4R40 



LIM 

LftUM 

0 

1 

0 

1 *' 

1 

1 

,009500 

12.0000 

2.0000 

.5000 

414.53 

350,00 

12.04 

.437 

.1512755 


n 

VAl. 

CVu2 

1 

1 

c 

1 10 

( 

1 

,009500 

1 35.0000 

2.0000 

.oncn 

425.15 

350.00 

12,04 

4,406 

.1467768 


m 

LIT! 

LfiUl 

0 

1 

0 

1 t t 

1 

1 

,009500 

4C.0C00 

2.0000 

.5000 

426.70 

350.00 

12.04 

1.458 

,1461381 


o 

TAP 

FTul 

1 

1 

0 

1 12 

1 

1 

.009500 

IC.5C00 

2.0000 

,0000 

427.51 

350.00 

I2.0U 

.342 

, 1458060 


2 

LIN 

LNUA 

0 

1 

■ c 

1 n 

1 

1 

,009500 

2C.OCOO 

2.0000 

.soon 

428.29 

350.00 

12,04 

.729 

, (U549I5 



RLG 

PPU 1 

2 

1 

0 

1 l‘l 


1 

.009500 

336.8000 

2.0000 

.0000 

1750.00 

350,00 

12.04 

9.630 

,0000000 


LIN 

LM07 

0 

» 

0 

1 Is 

1 

1 

,009500 

30.0000 

2.0000 

.5000 

1790.20 

350,00 

12.04 

1.913 

.0180427 



ACC 

ACOI 

0 

1 

0 

1 16 


1 

,000000 

.0000 

.0000 

2.0000 

2000,00 

350,00 

12.04 

.000 

,0000000 


m 00 

Llti 

LMu8 

0 

1 

0 

1 17 

1 

1 

,009500 

24.0000 

2.0000 

,5000 

2000.14 

350.00 

12. C4 

1 .531 

.0I552U0 


(fl 

HFX 

hXL'I 

1 


c 

1 IB 

1 

1 

,000000 

.0000 

.0000 ' 

,0000 

2022.29 

173.00 

12.04 

22.655 

.0000000 


S> 

GaS 

02-LIN 

r 

2 

c 

1 19 


2 

,000000 

.0000 

.0000 

.0000 

2022.29 

173,00 

12,04 

.000 

.nnnnnno 


(A 

LItl 

LHC9 

0 

1 

0 

1 20 

1 

2 

,018000 

12.0000 

I .0000 

.5000 

2023. 9u 

173,00 

12.04 

.3e3 

,0000000 


■0 

VAL 

CVOI 

1 

1 

0 

1 21 

1 

2 

,Q ICOOO 

.0000 

1 .0000 

.0000 

2023.914 

173.00 

12.04 

9,000 

.0000000 


> 

Ll!i 

LMIO 

0 

1 

0 

1 22 

1 

2 

,018000 

12.0000 

1 .0000 

.soon 

2025.58 

173.00 

12.04 

.383 

•oononoo 


O 

m 

Lit: 

Ltm 

0 

1 

c - 

1 2B 

1 

2 

,015000 

24.0000 

2.5000 

,5000 

15.97 

165.00 

12.04 

1 ,093 

.onononn 


TAP 

FT04 

1 

1 

0 - 

1 27 

1 

2 

,015000 

6.6700 

2.5000 

.0000 

15.95 

165.00 

12,04 

.534 

.onononn 


n 

Lit; 

LN 1 2 

0 

1 

0 - 

1 26 


2 

,015000 

12,0000 

2.SO00 

.5000 

15.94 

165.00 

12.04 

.547 

.nnonnoo 


O 

VAL 

SVOl 

1 

1 

0 - 

1 2S 

1 

2 

,015000 

6.6700 

1 .5000 

,0000 

15.79 

165.00 

12,04 

4.142 

.oononoo 


& 

T3 

LIN 

LN 1 1 

0 

1 

0 - 

1 24 

1 

2 

,018000 

160.0000 

1 .5000 

,5000 

12.98 

165.00 

12.04 

4.373 

.onononn 


> 

pun 

HPO I 

1 

1 

0 

1 23 

1 

2 

,000000 

.0000 

.0000 

,0000 

12.98 

165.00 

12.04 

73.362 

,0000000 


Z 

-< 

TAN 

TKUl 

. 0 


0 

1 29 


2 

,000000 

.0000 

,0000 

2,0000 

16.00 

165.00 

12.04 

.000 

.Qooonno 

t-* 

0 

(O 

CO 


LOCKHEED MISSILES & SPACE COMPANY 


Ihl-r 62 rj W Trit INTEGRA (felJ llAIH HUl'h.L " UA | h W Am f i ; 

EXT. 3023S * * TiriE |S:02l00 

Ht-f'. lOV * ATM3D7 * CASE I 

ACPS - TEST PEHONSTPATIOM PROBLEM 

*** summary of COMPUTEP system CONFlfiUflATION PARAMETERS - CONTD, *** 


• F 

COOE 

FT 

^iO 

NS IS IPX 

G 

<5S 

FCOEF 

l./O 

GAS 

H2-VAP 

2 

1 

0 

1 30 

2 

1 

,000000 

.0000 

EllG 

EfIGI 

0 

1 

0 

1 31 

2 

1 

.000000 

.0000 

LIM 

LN2i 

t) 

3 

0 

1 32 

2 

1 

,01 1000 

no. 0000 

TEE 

FTi:| 

1 

1 

c 

1 33 

2 

1 

,01 1000 

109.0000 

LIU 

LMi*2 

0 

1 

0 

1 34 

2 

1 

.01 1000 

iSc.OOOO 

TAP 

FT22 

1 


0 

1 3S 

2 

1 

,01 1000 

9.0000 

LIM 

. LN21 

0 

1 

0 

1 36 

2 

1 

,01 IQCO 

24.0000 

VAL 

IVC'2 

t 

1 

0 

1 37 

2 


.01 1000 

9.0000 

LIM 

LI:24 

0 

i 

0 

1 38 

2 


,01 moo 

12.0000 

VAL 

CVUM 

1 

1 

0 

1 39 

2 

1 

,01 moo 

86.0000 

Lir; 

LN2S 

u 

1 

0 ' 

i 40 

2 


,Gi moo 

40.0000 

TAP 

FT23 

1 

1 

G 

1 41 

2 

1 

.01 moo 

9.0000 

Lit! 

LN26 

0 

1 

0 

» 42 

2 

1 

,01 moo 

20.0000 

REG 

PPu2 

2 

1 

G 

1 43 

2 

1 

.01 1000 

336.4000 

LIM, 

LN27 

Q 

1 

0 

1 44 

2 

1 

.01 1000 

30.0000 

ACC 

ACU2 

U 

1 

0 

1 'IS 

2 

1 

■ ,000000 

.0000 

LIN 

LN2B 

W 

I 

C 

1 46 

2 

1 

,01 moo 

24.0000 

HEX 

HXlil 

1 

1 

C 

1 47 

2 

1 

,000000 

.0000 

GAS 

H2-LIO 

2 

2 

0 

1 4B 

2 

2 

,000000 

.cooo 

LIN 

LM29 

6 

1 

0 

1 49 

2 

2 

,01 mon 

12.0000 

VAL 

CVU1 

1 

1 

c 

1 SO 

2 

2 

,01 moo 

9.0C00 

LIN 

LNIO • 

0 

1 

0 

1 SI 

2 

2 

.01 1000 

I2.0COO 

LIN 

Lirj3 

u 

1 

0 - 

1 S7 

2 

2 

,013000 

24.0000 

TAP 

FT24 

1 

1 

c - 

1 S6 

2 

2 

,013000 

S.6000 

LIf: 

LN J2 

u 

1 

0 - 

1 SS 

2 

2 

.OIPOOO 

I2.0C00 

VAL 

SVU2 . 

1 

1 

0 - 

1 S4 

2 

2 

,0(8000 

S.6000 

LIN 

LN3I 

u 

1 

0 - 

1 S3 

2 

. 2 

,018000 

I2C.OOOO 

Pin 

HPU2 

1 

1 

0 

1 S2 

2 

2 

,000000 

.0000 

TAN 

TK02 

0 


0 

1 S8 

2 

2 

,000000 

.0000 


nun ithick pres temp vjpot weight mach mplag 


.0000 

,0000 

.00 

,00 

.00 

,000 

,0000000 

,0000 

.0000 

400.00 

3S0.00 

2. so 

IS9.37S 

.0000000 

».7SO0 

2.0000 

400.12 

3sn.on 

2. SO 

3. SOB 

.209«i9?6 

1.7S00 

.0000 

401.92 

3SO.OO 

2. SO 

.331 

.20BA492 

I.7S00 

2.0000 

403.33 

3SO.00 

2. SO 

4.783 

.2079IA7 

I.7S00 

.0000 

403.48 

ISO, 00 

4.60 

.262 

.382879S 

I.7S00 

2.0000 

40'(.24 

3S0.00 

4.60 

.76S 

.3«2lSuo 

I.7S00 

.0000 

4p4.74 

3SO.OO 

4.60 

6.121 

.3fl|6Rp2 

I.7S00 

2,0000 

4nS . 12 

3So.on 

4.6o 

.303 

.38 1 32pS 

I.7S00 

.0000 

409.86 

3S0.0P 

4.60 

4.2SS 

.37689SB 

I.7S00 

2.0000 

4 M . M 

3S0.00 

4.60 

I.27S 

.37S7436 

I.7S00 

,0000 

4l 1 .60 

3S0.00 

4,60 

.262 

.37S?93? 

»,7SO0 

2.0000 

412.22 

3SO.OO 

4.60 

.638 

.374723S 

1 .7S00 

.0000 

I7S0.00 

3SO.OO 

4.6o 

9,392 

.0000000 

« .7snn 

2.0C0O 

I7S0.24 

3S0.00 

4.60 

» .674 

.0930032 

,0000 

2.0000 

2000.00 

3S0.00 

4.60 

.000 

,0000000 

i.snno 

2,0000 

2000.36 

3S0.00 

4,60 

I.I4B 

.1 132123 

.0000 

' ,nncn 

2010. 19 

42,00 

4,60 

61.123 

.nooonoo 

.0000 

.0000 

HOm. |9 

42.00 

4,60 

.000 

,0000000 

I.snno 

2.0000 

2010,23 

42,00 

4,60 

.S74 

.onnonoo 

i.snoo 

,0000 

2010.28 

42.00 

4,60 

9.214 

,0000000 

1 ,snoo 

2.0000 

2010.3? 

42,00 

4,60 

• S74 

,0000000 

2,0000 

2.0000 

IS. 97 

37.00 

4.60 

.87S 

.ononoon 

2,0000 

,0000 

IS. 96 

37.00 

4,60 

.342 

.oonnooo 

2.0000 

2.0000 

IS. '•<4 

37.00 

4.60 

.437 

.0000000 

2,0000 

.0000 

m.93 

37.00 

4.60 

4.406 

,0000000 

2.0000 

2.0DC0 

IS. 77 

37.00 

4,60 

4.373 

.0000000 

.0000 

.0000 

IS. 77 

37.00 

4,60 

34.S69 

,0000000 

,0000 

2.0000 

16.00 

17.00 

4.60 

.000 

.0000000 
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cr.rx 6211 * the 

INTEGRATED MATH MODEL 

* 

DATE 17 APR 73 

EXT. ‘ioais * 


* 

TIME 19:02101 

RLP. ii,m * 

AT4107 

* 

CASE 1 

*************** 

************** 

a 

******* 1 

ACPS - TEST OEtiOflSTRATlOM PP0BUEI1 
*** SUMMARY OF COMPUTED HEAT EXCHANGER CHARACTERISTICS *** 

FOR UNITS HXOJ 

HEAT EXCHAK6EP CHARACTERISTICS OXYGDi 


HX07 

HYDROGEN 

COLf. FLI'in IMI.ET TEMP 

,177000+03 


.420000+02 

COLD n.l.'TD OUTLET TEMP 

,7snnnn+07 


,790000+07 

COUP FLUK* SFECIFIC HEAT 

,'insf>'/7+oo 


.777876+01 

COUP FUUO FLO',; RATE 

,120417+02 


.460098+01 

|!OT FI.UIP IMLFT TEHP 

,200000+04 


.200000+04 

I'OT FLUID cutlet TEMP 

, ! IOOOn+04 


,102800+04 

HOT FU;IP fPECIFK heat 

. IBS24E+0I 


.184709,01 

I'OT FUUO n.CH RATE 

,620922*00 


.299072+01 

COLP SiPr EFFFCTIVEHESS 

.968801-01 


,197707+00 

liOT SIDE effect I VEHESS 

,49261 1+00 


,496429+00 

TOTAL EFFECTIVENESS 

,S89^'9|+00 


.697728+00 

HEX SUOUlUT TYPE *** 

SUP-CRITICAL 


SUP-CRITICAL 

TllEr’f'n. COUpUcTANcE RATIO 

,784822+00 


.991711+00 

HOT FLUIP FLOW RATE 

! ,727069+00 


.101027+00 

COLO FLUID PEl.TA - P 

,780449+01 


,171 191+00 

capacity ratio 

, 1 16889+00 


,179012-01 

HUtirER OF TRAtiSFER UNITS 

.719720+00 


.691449+00 

COMFUTEO VaLUF OF UA 

.ISm 17+04 


,464904+07 

COUrUTEO VALUF OF W/UA 

,987901-02 


,649877-02 

weight of SUDIIIJIT 

,177806+02 


.418989+01 

HEX SUBUHIT TYPE *** 

PARALLEl.-FUO 


PARAU.EL-FLO 

THEF.Ul. O'HpUcTANCF. RATIO 

,790269+00 


,140964+01 

HOT FLUID FLOW RATE 

,297079+00 


.284969+01 

COLP FU!IO PEl.TA - P 

,147977+02 


.969799+01 

capacity RATIO 

,797770-01 


,298971+00 

CUNf'ER OF transfer UNITS 

,769691+00 


,809968+00 

COMPUTED value OF UA 

,192479+04 


,197409+09 

COMPUTED Value of u/ua 

,982027-02 


.771 129-02 

WEIGHT OF SUBUNIT 

.887461+01 


,969771+02 

WEIGHT OF HEAT EXCHANGER 

.226992+02 


.61 1270+02 


> 

CO 

CO 
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NAI!F USERS NAME ********************* page [“T 
PF.PT 6211 * THE INTEGRATED MATH MODEL * DATE IT APR 71 

EXT. 1021S * * TIME ISI02I0I 

El.D. lOij * AT4107 * CASE I 

*******^***********ik****««t**********«(*-«t 

ACPS - TEST DEMOI-ISTRATIOM PRORl.EII 

*** SurulARY OF COIlPlJTEO HEAT EXCHANGER-GAS GENERATOR CHARACTERISTICS *** 


CAS GEflERATOR CHARACTERISTICS OXYGEN 


HYDROGEN 


GAS GEN, FLOW RATE - (LB/SEC) ,620<»22+00 

GAS GFN, Propellant wgt.-(lbs) .2S7*tfm+oi 

GAS GEtiERATOn WEIGHT - (LRS) .116186+02 


,2«S072+0| 
, I2216I+0M 
.161016+02 


''EIGHT OF HEX-GAS GEN. ASSY. 


.162718+02 


.7722M6+02 


CUMI'LATI''E Gas gen. prop, WTG. .2S7MBII+01 


.I2216I+0N 


CUMULATIVE HEAT REQO. - |8TU) ,000000 .000000 

CUMULATIVE HOT FLUID - ILRS) , .000000 .000000 




LMSC-A991396 


LOCKHEED MISSILES 8c SPACE COMPANY 


i;ai:e users name ****•>> ********** it***** page is 
rEf'T 6211 * the integrated math model * date 17 APR 71 

EXT. 1021S * * time ISt02l02 

PLC'. lOM * ATm07 * CASE I 

«***«*« **4r«t***«t******K***** ************ 

ACPS - TEST DEHONSTRATIOH PROBLEM 
★** SUMMARY OF COMPUTED PUMP CHARACTERISTICS FOR TME SYSTEM *** 


FI.'MP CHARACTERISTICS 

OXYGEN 

HYDROGEN 

TEMPERATURE 

. I6S000+01 

.170000+02 

PRESSURE 

.I2<)7S7*02 

.157742+02 

R.OU rate 

. I2om7+02 

.1460048+0 1 

DELTA-PRESSURE 

.20IP6I+0M 

, 1 04454+04 

rPSi! AVIALAPLE 

,B70oon+ni 

, 1 10000+01 

l.-EMSITY OF fluid 

.708162+02 

.441104+01 

iiunnEP OF stages reqo. 

1 

5 

COIjpUTED NFSR REQD 

.2!R270+0I 

,116251+00 

COMRUTEO PUMP LEE. 

.72SS20+00 

,766746+00 

COMPUTED PUMP VOL, 

,M<i06!7+02 

.111186+01 

COMniTEO RlUP WGT. 

.m6742 + OI 

,154000+01 

COMRUTLD PUHR PWR, 

,121440+01 

.7O6B64+01 

computed pump spd. 

,i74<5an+os 

,814961+05 

SELECTED PUMP OPTION 

2 

2 

*** SUMMARY OF COMPUTED TURBINE 

characteristics 

FOR the system *** 

TURP.IliE characteristics 

OXYGEN 

HYDROGEN 

TURP.IliE ROTOR mean DIAMETER 

,nS0664+0l • 

.274264+01 

l;GT. UF PWR. TRAMSMISSION ASSY 

.I17SI6+02 

.101401+02 

V;GT. OF TUPBIME ROTOR 

.646144+01 

.211872+00 

V’GT. OF MANIFOLD AND NOZZLE 

,119164+02 

.140021+01 

!:eight OF imducer 

.SOOOOO+OI 

.5R0C00+0I 

U'EIGHT OK turbine ASSY. 

.S96SIS+02 

. IB6071+02 

*** SUMMARY OF COMPUTED TURBINE 

GAS GENERATOR CHARACTERISTICS *** 

GAS GHMFP.ATOR CHARACTERISTICS 

OXYGEN 

HYDROGEN 

GAS GEM. FLOv; RATE - (LB/SEC) 

.r.79071-01 

.554576+00 

GAS GEM. PROPELLANT WGT.-(LBS) 

.164514+02 

.228472+01 

GAS geherator height - (lRS) 

.122426+02 

.121712+02 
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IHL INIhtiHAItU HAIM HUUl.t' 


rrpT 6? 1 3 ^ 

EXT. 3023*? * 

BLC', HIM * Am3n7 

ft************************ 


* * * 


— ' ■ uu 1 1 n H I I I I j 

* TIME |S:02t03 

* CASE I 

*********** 


. ACPS - TEST fiEMOMSTRATION PROBLEIl 


*** 

INITIAL TANK SIZING CALCULATIONS *** 

OXYGEN 

HYDROGEN 

Mlirir.ER OF TANKS 

1 

1 

IIATEHIAI. TYPE 

2 

2 

FLUID WGT. (TOTAL) 

.SI0II3+04 

,i«»Mn20+04 

FLUID VOl.UI-.E /TANK 

,720333+02 

,439468+03 

HOT ADl'rO CYL SECT 

.30A0'j2+00 

.197*108 + 02 

EIAllfc-TER (FT) /TANK 

,S0A6on+0l 

,snoono+oi 

SURFACE AREA /TANK 

,nssi 00+02 

,380627+03 

TANK VOLUME / TANK 

,742612+02 

.4S30S9+03 

tank UGT, (LB) TOT 

,426<>C6+02 

, IO26S0+03 

meat leak ETU/M/FT 

,47S0'->'»-02 

,323fiS6-0| 


bo 

I 

CO 


( 
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kai:e users name ********************* page 20 

UEF'T -^211 * THE InTEGRATEP hath MOPEL * DATE 17 APR 71 

EXT, 'J021R * * TIME ISl02l01 

SLC. lOM * ATmn? * CASE I 

it1i*ii*M *********** ********************** 

ACrS - TEST DEMONSTRATION PROBI.EH 

*** TANK and Vent parameter calculations *** 

*** INITIAL TANK CONDITIONS *** 

FLUID CCNSIDEPED - OXYGEN : FLUID TEMPERATURE = I6I.RI TANK INITIAL PRESSURE = 16,00 

UGT.Of LU'. PROP, = SlOl.n UGT. PROP. VAPOR = .741 WGT. LlO. * VAPOR = 1,101.87 

V'CT. HELIUM IH VAHOn r .00 TOTAL FLUIDS IN TANK = SIOI.B? VOL. OF LIQUID FLUID = 71,80 

Part, PR rS, PROP, VAPOR = 16.000 PART, PRES. HELIUM GAS = ,000 ULLAGE VOLUME IN TANK s -2,46 

Tank volume = 74.26 EFF. tank density = 68.702 EFF. INTERNAL ENERGY = -,S6« 1 0188+02 

******************** Coast number = i press. svs.no. = o ******************** 

*** FRE- ok fK'N-VEHT conditions *** 

FL"1D considered - OXYGEN FLUID TEMPERATURE = 161.99 COAST DURATION - SEC, = ^40. 

V.'GT.OF LIu. PPr.P. = SI0I.I25 UGT. PROP. VApoR = .744 WGT.HFl.IUtI III VAPOR = ,000 

PART.PPES.PHOP.VANOr. = 16.074 PART, PRES . HELIUM GAS s ,000 CURRENT TANK PRESSURE s 16,074 

EFF.INTEHI-AL energy = -.S6809f86+02 

********************* BURN NUMBER s I PRESS. JiYS. NO. s 2 ******************** 

/ - ■ 

*** COr.FUTE ENERGY BALANCE FOR PURI'i *** ' 

FLUID COUilOERKD - OXYGEN BURN DURATION - SEC, = S, FLOURATE FOR THRUST s 9.990 

Thrust PPcP.PF.l;AlNrr;0 = LSIS.OS propellant in tank = SIOI.II EFF. internal energy = -.S680R886+02 

FFF. TANK ENERGY = -.28672176+06 TOTAL FLOURATE s 12.011 

»** CONPUTE resulting TANK CONDITIONS *** 

PROPFLLANT HITHDRALf; = SS.III TOTAL FLUIDS IN TANK = S046.76 PROPELLANT LIQ.+VAP. = S046.76 

THRUST PHOP.PEnAINIiiG = 4ie9.29 MEW EFF. TANK DENSITY = 67.9S96 PART. PRES. PROP, VAPOR = I6.0S6 

fiKW INTEPNAL FCERGY = -.S68 11077+02 

*** compute ppessurant needed for this burn *** 

Tank lic, temperature = I 6I.97 stored helium temp. = iTO.oo new tank ullage vol, = 1.210 

MLW pMor. LIU, VciLl.'hE = 71.01 PROP. LIO. REMAINING s S04S.78 WGT, oF PROP. VAPO» = .9742 

helium PAKT.PRISSIJPE s 10.644 TOTAL PRES. +FPV+PHF* = 16.0S6 MOM. OPERATING PRES, r 26.700 

ME'.LIun FLOW Rate s ,1644-01 WEIGHT OF HELIUM USED = .7S28-0I NEW TANK PRESSURE = 26.700 

total HtUIUM CONSUMED = ,07S 
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t rPT 6211 T« ■ inu IN I t -.bKA M'.D iiAw i imuL ' L u u 

UX", 1021*> * * TIME |S;02»03 

lOM * ATmo7 * CASP t 

*««*'* ****************************** 

. ACPS - TEST nEMONSTRATIOM PROBLEM 

*** TANK AND VENT PARAMETER CALCULATIONS - CONTO, *** 


******************** COAST NUMBER = 2 PRESS. SYS. NO, b 2 ******************** 

«'•'* rr.E- or. non-vriit conditions *** 

fluid considered - oxygen fluid Temperature = I64.no coast duration . sec. = T’TS. 

HOT, OF LIU. PROP. = sons. 781 liQT. PROP. VAPOR = ,976 WGT. HELIUM IN VAPOR s ,07S 

PaPT. PRES. PROP. VAPOF. = I6.00H PART, PRES. HELIUM GAS = 10.269 CURRENT TANK PRESSURE s 26.3S1 

FfF , internal energy = -.S6B0SS71+02 

******************** burn number s 2 PRESS.SYS.no. s 2 ******************** 

«*• COMPUTE ENERGY BALANCE FOR BURN *** 

fluid COfISIOEREO - OXYGEN BURN DURATION - SEC. S 6. FLOWRATE FOR THRUST s 9.990 

Thrust PHL'P.RrilAlNjj.r, = t;|U9.29 propellant in tank S S0H6,76 EFF. IMTFRNAU ENERGY s -.S680SS7 1 +02 

EFF. TANK ENERGY s -.282SC 1 02+06 TOTAL FLOWRATE s I2.01S 

**« cor PUTS resulting Tank conditions *** . 

I 

propellant WITHdFAW.'! = 74,016 TOTAL FUMOS IN TANK = 4972.74 PROPELLANT LIO.+VAP. s 4972,74 

thrust rroP.REf'AlNI.'.Ti = 4127 . 8*5 new EFF. tank density s 66,9629 PART, PRES, PROP. VAPOR B 16.061 

NEW INTERNAL ENERGY = -.S6B0992S+02 

**• compute ppessuf.ant needed fob this burn *** 

Tank LIQ,. TEflPEKAlUlIE’ = 161,97 STORED HELIUM TEMP, s 170,00 NEW TANK ULLAGE VOL, 

NEW PROP. LIO, VnLllfiE s 69,99 PROP. LIQ. REMAINING S 4971. 4S WGT, oF PROP. VAPOR 

HELIUII rAnT,PRF.5SUrif: s 10.619 total pres. *FPV+PHE* S 21,R!7 NOM, OPERATING PRES, 

HELIUM FLOW RATE r .39SS-02 I^EIGHT OF HELIUM USED S ,2412-01 NEW TANK PRESSURE 

total helium CONSUMED = .100 


4.27S 
I .2898 
26.700 
26.700 
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NACE USERS NAME ********************* PAGE 22 


6213 

■* 

THE INTEGRATED MATH MODEL 

n 

DATE 

17 APR 71 

1021S 

* 


* 

TIME 

(S:02j01 

104 

* 

AT4107 

* 

CASE 

1 


***************** ********* 

ACPS - TEST OEMOMSTRATICUI PROBt.EM 

*** TAMK AHO VENT PARAMETER CALCULATIONS « COKTD, *** 


******************** COAST NUMRER s 3 PRESS. SYS. NO, s 2 ******************** 

*** FRE- OR MON-VENT CONDITIONS *** 

FLUin CONSIOERF.O - OXYGEN FLUIO TEMPERATURE = 163,08 COAST DURATION - SEC. = SOON, 

wr.T.OF LH:. PROP, s H07I.4SO V'GT. PROP. VAPOR = 1.290 WGT.HELIim IN VAPOR = .(00 

Fart, PPCS. PROP. VAPOR = I 6 .O 6 O part. pres. helium gas S (D.263 CURRENT TANK PRESSURE = 26.112 

FFF.lNTERiiAL F.HLP 6 V = -.r6fi07O2H+02 

******************** Bopfj number = 1 PRESS.SYS.no, s 2 ******************** 

*** COIXUTE ENERGY BALANCE FOR BURN *** 

FLUID COnSIUEREl) - OXYGEN BURN DURATION - SEC, a N, FLOWRATE FOR THRUST a 9,900 

T,.RUST rPOP.RENAiNiNG a maTtSS propellant ii) tank a 4972. 7R EFF. iMTEPNAt. ENERGY a -.S6B07924+02 

Eff, TAr.K ENERGY = -,2fS00SS87+06 TOTAL FLOWRATE e I 2 . 01 S 

**• compute RESULTING TANK CONDITIONS *** 

propellant WlTHliRAVri a M1.0B6 TOTAL FLUIDS IN TANK a NpRp.AS PROPELLANT LIO.*VaP, a N929.6S 

thrust prop. remaining = MPR2.09 NEW EFF. TANK DENSITY = 66,1827 PART, PRES. PROp.VApOR a 16, OSS 

new IfiTEPr.AL F.riLRGY a -.S 68 I 044 1 102 

>•** COI'.PUTE PPF.SSURANT HEEDED FOR THIS OURN *** 

T;,NK LIQ-. TeMPeRaIMRE a (63 . q 7 STORED HELIUM TEMP, a tVO.OO NEW TANK ULLAGE VOL, a 4.8R6 

MEW PKOp, LID. VOLUME a 69.18 pROp, LIO. REHAINIMG a 4928.(8 WGT. OF PROp. VApOR a (.471S 

HELIUM PAFT. PRESSURE a (0.64S TOTAL PRES. *FPV+PHE* a 2S.01S HOM, OPERATING PRES, a 26,700 

HELIUM FLOW RATE a .3990-02 WEIGHT OF HELIUM USED = ,(428-0 ( NEW TANK PRESSURE a 26.700 

total helium consumed a .IU) 


/ 
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rrPT 

6213 

■* 

THE INTF.GRATED MATH n'JUtl. 

" V >9 1 & 

t T ^ 0 

EXT. 

30235 

■* 


* TIME 

ISt02t04 

FiLD. 

104 

■* 

AT4307 

* CASE 

1 


<t****4t4t*M*M**««r**A*'*****4lr *********** ’4r* Dr 

ACPS - TEST DEMONSTRATION PROBLEM 


*** TANK AMO WENT PARAMETER CALCULATIONS - COUTO. *** 


littilic**************** COAST HUMBER = H PRESS.SYS.NO, s 
**• PRE- OR MOM-VENT CONDITIONS *** 

fluid consioereo - oxvcEN FLUID Temperature = 

WOT. OF LIO. PROP. •= M923.I8I VfOi. PROP, VAPOR s 

Part, PRES. PROP.VAPOR = I6.0S3 PART, PRES, HELIUM fiAS s 

CrF.lNTDNiAL ENLROY = -,S6BO‘>92'>+02 

******************** burn HUMBER s M PRESS, SYS. NO, s 

■ 

i**" COliPUTC ENERGY BALANCE FOR BURN n** 

FLUID COMSIOEP.F.O - OXYGEN BURN DURATION - SEC. = 39. 

TiiRUST rHiP.RFUAlNir;G s M0R2.09 propellant IN TANK s 4^29. 6S 

EFF, TANK ENERGY s -,2S36SflB'it06 

>**• COliPUTE resulting TANK CONDITIONS *** 

, i 

PF.OPFLLANT WITUORaUN s 466.961 TOTAL FLUIDS IN TANK S 44.S2.69 

thrust PHuP, REUaIMnG s 170M.47 MEW EFF. TA^K DENSITY a 60,0^46 

NHU .iNTEHilAL EIICP.OV s -.S6819786+02 

«** COIlFUTi: PRESSURANT NEEDED FOR THIS BURN **• 


163.97 

1.474 

( 0.268 


B ***<.*«*************« 


COAST DURATION - SEC* = S36, 

WCT. HELIUM IN VAPOR = ,||4 

CURRENT TANK PRESSURE a 26.326 


2 A******************* 


FLOWRATE FOR THRUST s 9.990 

EFF. INTERNAL ENERGY a -,S6fl0992S*02 
TOTAL FLOWRATE a I2.03S 


PROPELLANT LIQ.+VAP. s 4462.69 
PART. PRES, PROP, VAPOR a IS. 918 


Tank li.., TEMPERATUPr, 
m:w ppOj>, Lio. voLiiriE 
UCLIl'U FAnT.PRK!.SUPC 
ULLlun PLOW rate 
ToTaU helium COMSUNED 


163.82 

62.75 

10.782 

, 4072-02 

.272 


stored helium temp. 

PROp, LIO. REMAINING 
TOTAL PRES. *PPVtPHE* 
WEIGHT OF HELIUM USED 


170.00 NEW Tank ullage VOL, 

4459, 25 H6T. OF pROp, VApOR 

20,270 NOM. OPERATING PRES, 

,l58n<-00 NEW TANK PRESSURE 


N.5I6 

3.4458 

26.700 

26.700 


I 


(£> 

CO 


CO 

CO 
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NAl'iE USERS NAME ********** ■******■****» PAGE 24 
oerr 62 n ' * the intecratep hath model * date it apr 71 
EXT. 1023 s * * time ISI02I0R 

BLD. low * ATWIOT * CASE I 

*************Hie******it*********i[itit**ltli1t 

ACPS - TEST DEMONSTRATION PROBLEM 
*** TANK AMO vent PARAMETER CALCULATIONS - COMTp. *** 


♦*******i»***»******* COAST NUMBER s S PRESS. SYS. NO, s P ******************** 

*** ?RE- OR NON-VENT CONDITIONS *** 

FLUID CONSIOERri) - O/YGEN FLUID TEMPERATURE = 161. BW COAST DURATION - SEC. = 2061. 

VMT.OF LIU. PRO!'. = '|iiS‘J,24'4 KGT. PROP. VAPOR s 1.4S0 WGt.UEUIUM IN VAPOR s .272 

f#,RT, PRES. PROP, VAP i.k s |S.919 PART. PRES. HELIUM GAS = I0.1R2 CURRENT TANK PRESSURE a 26,112 

EFF.INTENNAL ENERGY = -.S6817S92+02 

******************** BURN number = S PRESS.SY5.no, a 2 ******************** 

*** COliPUTE ENERGY BALANCE FOR BURN *** 

FLUID COMSIOEREC) - OXYGEN BURN DURATION - SEC, = T. FLOWRATE FOR THRUST a 9.990 

T,(RUST PRCP.RFIIAininG a 1704.47 PROPELLANT JN TANK = 4462.69 EFF. INTERNAL ENERGY s -.S6B1TS92+02 

El-F. TANK ENERGY s -.2MBSBR64+06 TOTAL FLOWRATE s I2.01S 

*** COilPUTE nrSiJLTING tank conditions *** 

PROPELLANT WITHoMaWII a 89 . ^21 TOTaL FLUIDS IN TANK a 4171,27 PROPELLANT LIG.+VaP, a 4171.27 

thrust rROp.BF.UAINI.'iG = 161 v"». 24 MEW EFF. TAI.'K DENSITY a S3. 8904 PART. PRES. PROr.VArOr a IS, 912 

rii;W INTERNAL F.NEPOY a -.S6842927+02 

■ *** COliruTE PRESSURANT needed for this burn *** 

Tank LIO. TeMPF.PaY"pe a 161.81 STORED HELIUM TEMP. a 170.00 NEW TANK ULLAGE VOL. a 12.780 

NEW pROp. LIO. VOLUME a 61.43 PROp, Llo. REMAINING a 4169. 4S WGT, OF PROp, VApOp a 1,8229 

HKI.lUii part. PRESSURE a 10,788 TOTAL PRES. *PPV+PMF* = 2S.271 NOM. OPERATING PRES, a 26.700 

HHUIMM fi.Oh rate a ,4042-02 WEIGHT OF HELIUM USED a .lOOl-OI NEW TANK PRESSURE a 26.700 

total helium consumed a ,102 
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EXT. 1023S * * TiriE ISt02»0l* 

6Ur-. 104 * AT4107 * CASE I 

********* ***************************** tk 

ACPS - TEST DEMONSTRATION PROBLEM 
**♦ TANK and vent PARAMETER CALCULATIONS - CONTD, *** 


«rw****»*****ik**«iir*** COAST NUMBER = 6 PRESS. SYS. NO. S ?. ******************** 

«** F'RE- PR NON-VEMT CONDITIONS *** 

FLUID COHSIOEREO •> OxyCEN FLUID TEMPERATURE s 161. ft| COAST DURATION - SEC. s S91. 

Vic, T. OF LIU. PROP. s 11169.449 HOT. PROP. VAPOR s 1.0R4 ■ W6T. HELIUM IN VAPOR s .102 

Part. PRES. PROP, VAPOR = IS. 916 PART. PRES. HELIUM GAS S 10.196 CURRENT TANK PRESSURE s 26.111 

EFF.TNTEPIIAL Ef'EROV = -.56P42281+02 

**«:***************** aiiRN number s 6 press.sys.no. a 2 ******************** 

"** COlirUTE EiiERGY BALANCE FOR BURN *** 

FLUID CONSlUERr.D • OXYGEN RURN DURATION - SEC, a 4, FLOWRATE FOR THRUST s 9.990 

TjiRUST PHuP.REC.AlNlNO = 1610.24 PROPELLANT IN TANK a 4171.27 EFF, INTERNAL ENERGY 5 -.S6B422R1+02 

EFF, TANK ENERGY a -.246|4fl7«;+06 TOTAL ELOWRATE a I2.01S 

**• COftPUTE RESI.'UTINC TANK CONDITIONS ***,’ 

Fr.OPELl.ANT WITIIORAI'N s 41.0E6 TOTAL FLUIDS IN TANK a 4110,19 PROPELLANT LIO.+VaP. a 4110.19 

THRUST prop , remaining = 1S94.47 NEW EFF, TANK DENSITY a SB, 1101 PART. PRES. PROp.VApOR a IS. 901 

NEW INTEBIIAL F.HEROY a -.S6844B24+02 

*** COMPUTE PRESSURANT NEEDED FOR THIS BURN *** 

TANK LiQ. TEMpErATHrE a 161.80 STORED HELIUM TENp, a 170.00 NFH TANK ULLAGE VoL, a 

l.'CW PROP. LIO. volume a 60.87 PROP. LIQ. REMAINING a 4126,18 WGT. OF PROP, VAPOR a 

(HELIUM part, PRESSURE s 10.797 TOTAL PRES. *FPV+PHE* a 2S,fl24 NON, OPERATING PPES, = 

HELIUM FLOW rate a . 4101-02 WEIGHT OF HELIUM USED a ,1468-01 NEW TANK PRESSURE a 

Total hllIum consumed a .117 


11.191 

4.001s 

26.700 

26.700 


i 
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nai:e users name ********************** page ?6 

DF.FT 6213 * THE IMTEGRATEr. riATH MODEL * DATE IT APR 73 

KXT. 3023S * * TIME lStO^»0^ 

til.D. |n^ ★ ATH307 * CASE I 

******4tA**A **************************** 

ACPS - TEST DEMONSTRATIOH PROBLEM 

*** TANK ANn VCNT PARAMETER CALCULATIONS - c^flTo. *** 


******************** COAST NUMBER s 7 PRESS»SYS.MO. = ?. ******************** 

*** ppf-» CP non-vemt conditions *** 

ELUIO cOfiSIuERr.D - OXYGEN FLUID TEMPERATURE S 163.80 COAST DURATION - SEC. = 

WGT.'^F LIO. prop. = mp6,l83 HOT. PROP. VAPOR S H.004 WGT. HELIUM IN VAPOR r ,3|7 

Part, PELS. PROP. VAPOP. = |S.R06 part. pres. helium GAS = 10.404 CURRENT TANK PRESSURE = 26.310 

EKF. INTERNAL EMEPOY = -. '56844236+02 

******************** BURN number = 7 PRESS, SYS, NO, r 2 ******************** 

*** COMPl.TE ENERGY BALANCE FOR BURN *** 

FiJUP CONSIDERED - OXYGEN BURN DURATION - SEC, * 66. ELOWRaTE FOR THRUST s S.9R0 

T,|RUST PPOP.RF-lifiINil',G = 3SR4.47 PROPElLAnT jN Tank = 4330,16 EFF. iNTERMAl. ENERGY = -.S6R44236*02 

EFF, TANK ENERGY a -.20 1 1 26S I +06 , TO+aL ELOURATfr - I2.03S 

• **« COfiFlJTE resulting TANK CONDITIONS *** , 

PROP ell Af.'T wITUdRa'^'J = 7<?S.Sl9 TOTAL FLUIDS IN TANK = 3S34,67 PROPELLANT LIO.+VAP, = 3S34.67 

thrust rPcP . remaining = 2034.12 new EFF. tank density = 47.S978 PART. PRES. PROP, VAPOR = IS.7S2 

NFW INTEKNAL ENERGY = -.S690 I 0^6+02 

*** COMPUTE PRESSURANT NEEDED FOR THIS BURN *** 

Tank lid, TEMPENaT'nf. = 163.63 stored helium temp, = I70,00 

NEW PROP. LTO. VoLi'i-lE = ‘19,61 PROP. LlQ. REMAINING = 3S2T.36 

HPLIUJI pAPT.PRESSUpt; = 10. <^40 TOTAL PRES, *rPV + PHE* = 2I.3R6 

tELlUll FLOW pate s .4IS2-02 WEIGHT OF HELIUM USED = ,2744+00 

Total helium comsuned s ,sri 


NEW Tank ullage VOL, = 24.6S6 
WGT. oF PROP. VAPOR = 7.3072 
NON, operating pres, = 26,700 
NEW TANK PRESSURE = 26.700 
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int. in ic;unA I iiHin 


i.r.r’ I oc I 5 

tXT. 3023S * ★ TIHE ISlOSlO^ 

BLD. lOH * AT^3n7 * CASE I 

«*«*«**** ****************************** 

ACPS - TEST 0«iriOfjSTRAT10H PROBLEM 

*** TANK ANO VENT PARAMETER CALCULATIONS - COMTD, *** 


A*^***************** COAST NUMBER = 8 PRESS, SYS. HO, s ?. ******************** 

**» PRE- OR NON-VENT COriDITIONS *** 

FU'IO CONSIDERED -I OXYGEN FLUID TEMPERATURE s |6-).S8 COAST DURATION - SEC. » T|R, 

MGT.OF LKl. PROP, , = ISPT.mn WGT. PROP. VAFOR s 7.12S W6 t. HELIUM IN VAPOR s .S9t 

; Part. PP tS. PROP, VAPOR = IS. 793 PART. PRES. HELIUM GAS = 10. SRI CURRENT TANK PRESSURE = a6,33R 

EFF.lMTEf'CAL EllEROY = -.S69J0 1 37t02 

******************** 3IIRN number s a PRE5S.SY5 .no, s 2 ******************** 

'*• COtiP'.'TE ENERGY BALANCE FOR BURN *** 

fluid considered - OXYGEN rURN DURATION - SEC. = 32. FLOURaTE FOR THRUST s 9.9<»0 

M THRUST FROP.REllAiNiilG = 293i».l2 PROPELI-ANT IN TANK s 3S3*4,67 EFF. iNTERNAi. ENERGY s -.56900117*02 

4^ EFF. TANK ENERGY , s 1 79 1 0WS3+06 TOTAL FLOWRATE r I2.03S 

**» co^i^L'TE resulting Tank conditions *** 

propellant WIThoPaWn s 388,733 TOTaL FLUIDS IN TANK S IIHS.RR PROPELLANT LIO.+VAP. s 3INS.9R 

thrust f HOP, REIIAININO s 2611. M3 NEW EFF. TANK DENSITY s M2. 3631 PART. PRES. PROP, VAPOR s IS. 902 

ND( INTERNAL ENERGY s -.S69320M7t02 

**'* COHPITE PPESSURANT NEEDED FOR THIS BURN **• 

Tank lio. Temperature r |63,80 stored helium temp, s 170,00 new tank ullage vol, = 3o.|2m 

NEW PHOp, LIO. volume = MM. 14 PROp. LIO. REMAINING = 1136.91 W6T. OF PROp, VApOP s 9,0060 

helium part. pressure s 10.798 TOTAL PRES. *PPVfPHE* = 2M.S16 MOM. OPERATING PRES, s 26,700 

HEl.IUn FLOW rate s .17S2-0?, WEIGHT OF HELIUM USED S ,1212+00 NEW TANK PRESSURE s 26,700 

total helium CONSUilEO = .712 
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USERS NAME * n ******* *********** * PACE 2fl 
DEPT 6211 * the IHTEfiRATED HATH MODEL * DATE 17 APR 71 

EXT. 1021'> * * TIME ISj02t0'5 

BLP. I or * ATHin? * CASE I 

****************** **«r**«r************tk** 

ACPS - TEST PEMOMSTRATIOM PROBLEM 

*** TANK and vent parameter CALCULATIONS - CONTD, *** 


******* 1 ,************ COAST NUMBER s R PRESS. SYS. NO, s ? ******************«t* 

*** PPE- OR NON-VEMT COMOITIONS *** 

ELUID COMSlOEREI) - ' OXYCeN FLUID TEMPERATURE = 161,82 COAST DURATION - SEC. « S6fl, 

NOT. OF LK'. PROP, s 1116. VI8 WOT. PROP. VAPOR S 9,017 ' WGT. HELIUM IM VAPOR r .712 

Part, PRES, PROP, VAPOR S |S.92R part. pres. helium GAS S I0.N06 CURRENT TANK PRESSURE = 26.110 

EFF, internal EfiOiOY = -.S691 1 I 9C+02 

******************** SliRN number s 9 PReSS.SYS.NO, S 2 ******************** 

«*• COMPUTE ECERGY BALANCE FOR BURN *** 

FLUID COMSIOEREO - OXYGEN BURN DURATION - SEC, S |OH. FLOWRATE FOR THRUST B 9,990 

T;|RUST PROP, remain I,/' = 261 l.m PROPELLANT jN TANK s ims,94 EFF. INTERNAL ENERGY a -.S691M90+02 

EFF, Tank energy s IO 82 I |2N+06 total FLOWRATE s I2.01S 

*** COliPl'TE resulting TANK CONDITIONS *** 

propellant WITHORaUN s I2S2.B'J2 total fluids in tank = l«9l,08 propellant LIO.+VaP, b |B91,08 

thrust PPOr. remaining = 1571. ‘IN MEW EFF. TANK DENSITY = 25.4922 pART.PRES.pROp. VA rOr b 14.508 

NEW INTLVHAL energy s -.57161136*02 

**>* COMPUTE PRESSURaNT NEEDED FOR THIS BURN *** 

Tank LIC. TemPF.NaFURF. = 162 . 1 9 stored helium temp. = !70,00 new tank ullage VOL. = 47,917 

NEW PROP. LIQ. VoUXiE = 26.12 PROP. LIO. REMAINING = 1879,91 WGT. oF PROP. VAPOR b |1.I757 

f.-jlium rArT.pRESsurij; = 12.192 total pres. *ppv*phe* = 20 . 9 R 2 nom, operating ppes. = 26,700 

MiLlUM FLOW P.ATE s ,5'l49-02 WEIGHT OF HELIUM USED = ,5671*00 NEW TANK PRESSURE s 26.700 

TOTAL HELIUM CONSUMED s 1.280 
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1 tCf’T 6211 * the IHTEGRATEn MATH MODEL * DATE IT APR Ti 

EXT, 1021S * * TIME »‘5l02j0«j 

' P.I.P, lOM * ATHlflT * CASE I 

**A*«r«* A'*'* A*** ***A***A**4r4t* ********* 

; ACPS - TEST OEMONSTRATION PROBLEM 

*•* TANK AND V£HT PARAMETER CALCULATIONS - COHTD. *** 


****«i*************** COAST NUMBER a 10 PRESS, SYS. NO, S ? ******************** 

*** PRE- OR NOM-VENT CONDITIONS *** 

PLUIO COfiSIOEREO - OXYGEN FLUID TEMPERATURE = 162.18 COAST DURATION - SEC. = 1876, 

WOT, OF LIO. PROP. = 1379.780 MGT. PROP. VAPOR s 11,102 WGt. HELIUM IN VAPOR r 1,280 

PART.PRF.S.PROP.VAf'OF. = IN. 660 PART. PRES. HELIUM GAS = 11.6146 CURRENT TANK PRESSURE s 26,106 

EFF.INTEriiiAL ENtHOY ' s -.ST IS6674+02 

I ■ 

******************** slIRN number = 10 PRESS, SYS, NO, s 2 ******************** 

*** Cm:Pl'TE ENERGY BALANCE FOR BURN *** 

FLIIIO CONSIOEROI - OXYGEN BURN DURATION - SEC, = 12. FLOWRATE FOR THRUST a 9.990 

T;|HUSr PROP.RF.llAiNinr, s IS7I.WM PROPELLANT JN TANK a IB91.08 EFF. INTERNAL ENERGY a -,ST I S6679*02 

EFF. TANK. ENERGY . = 862SOS27+OS , TOTAL FLOWRATE s I2.01S 

**• COMPUTE resulting TANK CONDITIONS *** 

Pr.OPF.LLANT WITHDRAWN a 181. 9l9 TOTAL FLUIDS IN TANK a I‘JG9.I6 PROPELLANT LIO.+VAP, a IS09.I6 

T1:hUST PPOp.REliAlNiNG s |2S,-\.7S NEW EFF. TANK DENSITY a 20.122R PART, PRES, PROp.VApOR s 14. ISO 

NEW INTERi’AL F.llcROY , s -,S7 ISI208+02 

I 

- »** COMPUTE PEESSURANT NEEDED FOR THIS BURN *** 

Tank lio,, TtMPrRAiHr.F =, 162.00 stored helium temp, = 170,00 new tank ullage vol, = si.ihr 

MEW PHOP. LIO. Volume = 20.92 prop, LIO. remaining a 1494, 6S WGT. oF PROP. VAPOR a I4.SIS2 

HELIUM FAF.T.PRESSUr.C = 12. ISO TOTAL PRES. *PPV*PHE* a 24,791 NOIl, OPERATING PRES, a 26,700 

HELIUM FLOW RATE ' a ,S 1 02-02 WEIGHT OF HELIUM USED a ,1628+00 NEW TANK PRESSURE a 26.700 

total helium consumed a 1.442 
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MAI'E USERS NAME ********************* PAGE 30 
CEFT A2I3 ■* the INTEGRATED MATH MODEL * DATE 17 APR 73 

KXT. 3023S * * TIME |Sf02J06 

BLP, »0‘l * ATR307 * CASE ( 

★ ****«**# ************************* 

ACPS - TEST DEMONSTRATIOM PROBLEM 

*** TANK and Vent parameter calculations - contd. *** 


*** 1 ^**************** COAST flUMBER = I I PRESS. SYS, HO, s ?. ******************** 

*** PRE- OR r40N-VENT CONDITIONS *** 

fluid considered - OXVCr.N fluid temperature = !6S,‘>3 COAST duration - SEC. = S7IOHB. 

WGt.OF Liu. PROP. s m9l.376 UGt. PROP. VAPOR = 17.788 W6t. HELIUM IN VAPOR = I .^^2 

PART. PRES. PROP, VAPOR s |7.9|M PART. PRES. HELIUM GAS = 12. OSS CURRENT TANK PRESSURE = 29,969 

EFF.INTEKNAL EdLRGV = -.SS3S36^7♦02 

******************** BURN NUMBER s II PRESS, SyS. NO, a 2 ******************** 

*** COIIPUTF ENERGY BALANCE FOR BURN *** 

FLUID COnSIOERF.O - OXYGEN rURN OURaTION - SEC, = 16, 

THRUST PROP. remaining s I2S2.7S PROPELLAnT 1n TAmK S I«;09.I6 

ErF. TANK ENERGY s -.72687 1 99+OS 

**« cor'PUTE resulting Tank conditions *** 

propellant wiTMDFA’iN = l0‘I.M87 TOTAL FLUIDS IN TANK = I3IH.6B PROPF.Ll.ANT LIQ. + VaP. = 13m,68 

thrust I wOP.RF.MAirUNG r 1091.31 NEW EFF. TANK DENSITY S 17,7039 pART. PRES. PROP, VApOR = 16.731 

NEW internal F.NF.RGV : -.SS2S9n29+02 

**■ COliPUTK PRESSURAKT heeoeo fob this burn *** 

TaN< lid, temperature = I6'l.70 STORED HELK/M TEMP, = 170,00 

NEW PROP, HQ, V(iLI,V:E = 18.30 PROP. LIQ. REMAINING s 1297, IS 

helium PART.PRE.SSURE = |l.906 TOTAL PRES. *PPV+PHE* s 28.137 

HKLIUn FLOW rate = .0000 WEIGHT OF HELIUM USED = ,0000 

total IIElIUM CONSUIlEO = l,9'(2 


NEW tank ullage VOL, = ‘>3,961 
HGT. oF prop, vapor s I7.S27I 
NON, operating PRES. s 26,700 
NEW TAMK PRESSURE S 28.137 


FLOWRaTE for thrust s 9,900 

EFF. Internal energy = -.ss3S36M7*o? 

total flowrate s I2.03S 
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EXT. loais ■*■ * TIME ISJ02I06 

8LD. lOV * ATM307 * CASE I 

*4t**W tit A******************* * ************ 

ACPS - TEST DEHONSTRATI0M PROBLEM 
**★ tank and VF.NT PARAMETER CALCULATIONS - COMTO. *** 


******************** COAST flUMBEo = 12 PRESS.SYS.MO. a 2 ****tr***t»*****i»****t» 

UK* pRE- on tluN-VEMT COMDITIOMS *** 

FLUID COMSIOEPF.l) - OXYCEN FLUID TEMPERATURE = f6W.7T COAST DURATION - SEC. = 9S8M. 

WGT.O^ LlU. PROP, = 1297. 08S WGT. PROP. VAPOR s I7.S92 WGT.HFLIUM IN VAPOR s I 

PART, PRES, PROP, Vapor = 16.798 PART. PRES. HELIUM GAS r jl.mo CURRENT TANK PRESSURE = 28.208 

EFF.IUTEKMAL EIILROV = -.SS2Sm97+02 

^•■(ttr********^******* burn number = 12 PReSS.SYS.no, s 2 ******************** 

»*« COIlPlITE ENERGY BALANCE FOR BURN *ttt» 

FLUID COriSlOEREU - OXYGEN BURN DURATION - SEC. S |00. FLOWRATE FOR THRUST = 9.990 

ThRUST f’ROP.REiiAiNlNG s |09l.l| PROPELLANT iN TANK = I3m.68 EFF. iNTERMAl ENERGY a -.SS2SN797+02 

M EFF. TANK ENERGY = -.'1986 m26+0R TOTAL FLOWRATE a I2.01S 

•»** COflPl'TE RESULTING TANK CONDITIONS *** 

propellant WITHdRa'IN = 1201. sna TOTaL fluids in tank = m.lT PPOPELLaNT LIO.+VaP. 8 111,17 

TMPUST ppCp.RF.UAINiriG = 92.26 NEW EFF. TANK DENSITY a I.H970 PART. PRES. PROp.VApOR 8 m.SBO 

NKW INTERNAL ENERGY a —‘496702I7+02 

• i»i»» couruTE press'.irakt needed for this burn 

tank LIO. tFMPEIIAtU.^E = 162.28 .StORED HELUjM tEMP. a 170,00 NEW TANK ULLAGE vOL, a 72.986 

NEW PNOr, LICl. ViiLUNE = 1,27 PROP, LIQ. REMAINING a 91.02 WCT. OF PROP. VAPOR a 20.IS22 

ULLIUii FART.PRF.SS'JRC a 12.120 TOTAL PRES. *PPV+PHE* a 21.197 NOM, OPERATING PRES, a 26.700 

r'ELI'in FLOW rate a ,MSm-02 WEIGHT OF HELIUM USED a ,H9m+00 NEW TANK PRESSURE a 26.700 

Total mllIUm consumed a 1.917 
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NAIIE USERS NAME it******************** PAfiE 12 
CEPT 6211 * THE INTEGRATEO HATH MODEL * DATE 17 APR 71 

EXT. 1021S * '* time |S:02«06 

BUO. 10^ * AT^llOT * CASE I 

****** ******************i»*****P*******'» 

ACPS - TEST OEtlOHSTRATION PROBLEM 

*** tank and Vent parameter calculations - contd. *** 


******************** final engine shutdown propellant tank conditions ******************** 


**• compute final tank conditions *** 


FLUID CONSIDERED - 

OXYGEN 

FLUID TEMPERATURE 

s 

161.01 

coast duration - SEC, = 

100. 

UGT.OF LI'.. PROP. 

= 90.226 

ugt. prop, vapor 

z 

20.9*12 

wgt. HELIUM IN VAPOR = 

1.917 

Part, PRES. PROP, VAPOR 
EFF.INTLPMAL emlegy 

= IS. 206 PART. PRES. HELIUM GAS 

= -.WMRS71S8+02 

m 

«• 

M.622 

CURRENT TANK PRESSURE s 

26.828 

final tank temp. 

L'GT. of LI'3, residuals 

s 163.012 
= 90,226 

TOTAL Vented gas wgt. 

s 

.000 

wgt. OF GAS Residuals s 

22.879 


*** compute pressurization system weight *** 

. total helium gas HF.OD s I.sIT WGT.PRESSURaNT system s B2.90S 


i 


> 

(O 

CO 


CO 


'-’OSMl 
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« II * 


EXT. 30?3S * * TIME |S«oai06 

BLD, I0^ * ATMIOT * CASE I 

**^*****4* A ********** ’4r4t**AA*A*********1t 

ACPS - TEST DF.nOHSTRATIOM PROBLEM 

*** TAfIK AND VENT PARAMETER CALCULATIONS *** 

**« initial tank conditions *** 

FU'IP CONSIOEREO - HYDROGEN FLUID TEMPERATURE s 37, OS TANK INITIAL PRESSURE s 16,00 

WOT. OF LIQ. prop, s I'JMa.ZO UGT. PROP. VAFOR = |.20i» W6T, LIQ, ♦ VAPOR s I9R9.R0 

V;GT. helium in vapor = . ,00 total fluids in tank = I9L9.ro VOL. OF liquid Fluid s M39.63 

PART, PRES, PROP, VAPOR = 16.000 PART. PRES. HELIUM GAS s ,000 ULLAGE VOLUME IN TANK s 13. R3 

TANK VOLl'HE = RS3.06 EFF. TANK DENSITY S H.303 EFF. INTERNAL ENERGY = -. I | OR I 1 92*03 

******************** COAST NUMBER s I PRESS, SYS. NO, s 0 ******************** 

*** pRE- Oj; non-vent CONDITIONS *★* 

F(.UIt) CONSIOERrO - IIYCROGEN FLUID TEMPERATURE = 37, 9S COAST DURATION - SEC. = SMO. 

V^JT.OF LIU. PROP. = I9i|n.0l7 UGT, PROP. VAPOR = I.36S W6T, HELIUM IN VAPOR = .000 

FAHT.PRES.PkOp.VAhOp s I3.36S pART. PRES. HELIUM GAS s .000 CURRENT TANK PRESSURE = I8.36S 

EfF.liMTCPlJAL ENERGY = -. I I 040?.9St03 

******************** 8HRN NUMBER =1 PRESS, SYS, NO, s 2 ******************** 

• **• COMPUTE energy BALANCE FOR BURN ****'. 

Fluid consioereo - hyprogeh burn duration - sec. s s. flowrate for thrust s 

thrust FROP.REMAlNIf;r, s 1066.76 PROPELLANT IN TANK s 1940.20 EFF, INTERNAL ENERGY s 

EFF. TAtiK Energy s -.2i2994I7+06 total Flowrate s 

*** COIIPUTE RESULTING TANK CONDITIONS *** 

propellant withdrawn = 20.690 TOTAL FLUIDS IN TANK s «92B.SI PROPELLANT LIQ.+VAP. s I92R.SI 

thrust PKC'P.REMAINING = JOSS. 32 NEW EFE. TANK DENSITY = 4.2S66 p4RT.pRES.pROp, VApOR s 17,366 

NEW irlTEP.riAL ENERGY = -. I I 044483+03 

COMPUTE PPESSURANT NEEDED FOR THIS BURN *** 

stored HELIUM TEMP, s 40,00 NEW TANK ULLAGE VOL, s I6.3RS 

pROp. Ho. REMAINING S 1926,93 WGT. OF PROp, VApOR s I .S824 

total pres, *PPV+PHEW 5 17,366 NOM, OPERATING PRES, r 19,100 

WEIGHT OF HELIUM USED = .2646+00 NEW TANK PRESSURE s |9,|00 


Tank lio, TEMPERAT'Rr = 37. sa 

NEW pKOp. Llo, VOLUME = 436.67 

HELIUM fart. PRESSURE = 1.734 

helium FLOW RATE = .S777-0I 

total helium consumed = ,26S 


2.4«R 

-. I 104029S+03 
4.S6I 


LMSC-A991396 


2-48 

LOCKHEED MISSILES & SPACE COMPANY 


KAi:n USERS KAME ********************* pagR m 
OerT 62(1 * THE INTE6RATE0 (!ATH MODEL * DATE 17 APR 73 

F.XT. 1023S •* * TIME |Sl02:06 

BLP. 1 04 * ATmOT * CASE 1 

*****«'**'****************'* ************** 

ACPS - TEST OEMONSTRATlOfI PROBLEM 

*** TANK and vent PARAMETER CALCULATIONS - cONTD. *** 


******************** COAST NUMBER = 2 PRESS, SYS. NO. s ?. ******************** 

*** pRE- OR NON-VENT CONDITIONS *** 

FLUID CONSIDERED - HYDROGEN FLUID tEHPFRATURE = 18. S6 COAST DURATION - SEC. = -T^TS. 

VOT.OF Llli. PROP. = 1926.778 WGT. PROP. VAPOR = 1.714 W6T. HELIUM IN VAPOR = ,26S 

Part. PRES. PROP. VAPOR = (9.267 PART, PRES. HELIUM CAS = |,67l CURRENT TANK PRESSURE s 2C.918 

FFF.iNTERriAL EtitRGY = -. ( I 01 ( OSQ+CI 

******************** burn number s 2 PRESS, SYS, NO, s 2 ******************** 

**» COMPUTE ENERGY BALANCE FOR BURN *** 

FLUID considered • HYrROGEM BURN DURATION - SEC. = 6. FLOWRATE FOR THRUST s 2.498 

TURijST prop. RRIiAlN INC s (0SS.T2 PROPELLANT IN TANK S (Q2r..Sl EFF. INTERNAL ENERGY = -.([ 01 ( 090*01 

EFF. TANK. ENERGY s -.20976858+06 TOTAL FLOWRATE s 4.564 

**» COMPUTE resulting TANK CONDITIONS *>** 

PF.OPELL'NT- WITUDRaWN = 23,069 TOTAL FLUIDS IN TANK = 1900.44 PROPELLANT LIO.+VAP, = (900,44 

THRUST FRO'P. rF.ua IN IMG r (019.96 NEW EFF. TANK DENSITY = ‘-,(947 pART.PRES.PROp.VApOR = 17.676 

NZW internal energy s -.1(017879+01 

*»*» compute PReSSUP.ANT MEEDEO for THIS BURN ++* 

T.^Nk LIO. TEMPEMAlUnE = 17.69 STORED HELIUM TEMP. = 40,00 NEW TANK ULLAGE VOL. = 22.48 ( 

NEW PROP. LIO. VOLUME = 410.58 PROP, LIQ. RFMAINIMG s 1898.24 WGT. OF PROP, VAPOR s 2.2065 

helium Part, pressure = |.M24 total pres. *FPV+PHE* = 16.867 NON. OPERATING PRES, s 19,100 

Hut.IUM FLOW rate = .54/1-02 WEIGHT OF HELIUM USED s , 1165-01 NEW TANK PRESSURE = 19,(00 

total HELlWrt CnilSUi!i:P s .298 
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) i |i tMi ir« 


DEPT 

62(1 

* 

THE INTEGRATED HATH MODEL 

* 

DATE 

IV APH 7'i 

EXT, 

1023S 

* 


* 

TIME 

(Si02:07 

ELD, 

(04 

■* 

AT4107 

* 

CASE 

1 


««*«*****. *«r**ifc«r«***W**A**il^ ************* 

ACPS - TEST OEflOMSinATlON PROBLEM 
*** TANK AND VENT PARAMETER CALCULATIONS - COMTD, *** 


*********w*i»****<>;<t** COAST NUMBER s 3 PRESS. SYS, MO, = ?. ******************** 


*** PRE- OR IION-VENT CONDITIONS *** 

fluid considered - HYdRCGEH fluid TEMPERATURE = 17. 8R 

V'GT.OF LKi. PROP. = lERa.IRI WOT. PROP. VAPOR s 2.aS0 

Fart, pr.LS, PROP, VAPOR = la.oss part. pres. helium gas = i.irt 

EFF.INTtPLAL energy = -.llomill+03 

****»★♦*♦♦**★**★#*** BURN MUMRER r 1 PRESS. SYS, NO, 

*** COMrl'TE EMERGV BALANCE FOR BURN *** 


Fluid C'llSIDERr.l) - HYDROGF.II burn duration - SEC, = H. 

TURUST |•H'jP.RF.MAINl^}rl = (019.96 PROPELLANT IN TANK = 1900. B4 

EFF. tank Energy = -,2079SS4C+06 

I 

*** COMPl.iTE resulting TANK CONOITIONS *** ; 

FROPeLLaNT WITHDRAW!: s 16.119 TOTaL FLUIoS IN TaNK s I8SB.I0 

T.iRUST FhOP.RFMAINIMO = (011.02 NEW EPF, TANK DENSITY = H,(S86 

NEW internal F.liEROV, = «,n0171G6t01 

**• compute PPESSMRAMT heeded for THIS BURN *** 


Tank lici, tf.mpenature 

mew prop." Lla. VoLliliF 
NELI'IM PALT.PPKSSUFE 
lELIUH FLOW RATE 
total helium COriSUCED 


17. S7 stored helium temp. 

M26.14 PROP. LIQ. remaining 

(.766 total pres. *PPV+PHE* 

,3941-01 WEIGHT OF HELIUM USED 

,4l9 


40,00 
lflS(,S1 
18.460 
.14 1 2^00 


COAST DURATION - SEC. « 2094, 

WGT. HELIUM IN VAPOR s .298 

CURRENT TANK PRESSURE = 19.406 


2 ******************** 


FLOWRATE FOR THRUST 
EFF, INTERNAL ENERGY 
TOTAI FlOWRATF 


propellant LIO.+VaP, 
part. PRES, Prop. vapor 


MEW tank ullage VOL. 
WGT. oF PROP. VApoR 
NOM. OPERATING PRES, 
NEW TANK PRESSURE 


2.498 

-. I (OlMlIUOl 

4.S64 


s (834.10 
= 17.114 


= 26.7IS 
= 2.S7S7 
s 19.(00 
= 19.(00 



/ 
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KAiiE USERS NAME ** ****11 it************* pAr,c ■?6 
DEPT 6211 ■* THE 1NTE6RATE0 MATH MODEL * DATE 17 APR 71 

EXT. 102 IS * * TIME IStOStO? 

RLD. 104 * AT4107 * CASE ) 

************************************* ^* 

ACPS - TEST OENOMSTRATjOH PROBLEM 

*** tank and vent parameter CALCULATIONS - CONTD. **★ 


******************** COAST number s 4 PRESS. SYS. NO, s 2 ******************** 

*** pRE- OR non-vent COIIOITIONS *** 

fluid CONSIOERRO - UYdRCGE:! fluid temperature = 17.61 COAST DURATION - SEC. = S16, 

NOT. OF LIw. PROP. s I3PI.SI2 WGT. PROP. VAPOR s 2.S9I UfiT, HELIUM IN VAPOP s .439 

Part, PRES, PROP, WAPOR = 17.449 part. pres. helium gas = 1.660 current tank pressure = 19,110 

EEF.IUTEKiiAL ENERGY = -. I I 016441^01 

******************** DORN number s 4 press, SYS, NO, s 2 ********************* 

**■* COr.F'jTC ENERGY BALANCE FOR BURN 

FLUID CONSlOEBEO - hVOHOGr.U BURN DURATION - SEC, = 19, FLOWRATE FOR THRUST s 2.498 

T.jRUST PRUP.RfilfclNING r (011.02 PROPELLANT IN TANK s «664.I0 EFF, INTERNaI. ENERGY s M 0l6i|4S*01 

FfF. TANK energy = -.18892080+06 TOTAL FLOWRATE 5 4.S64 

- +*+ COMPUTE resulting TANK COfiDITIONS *** 

‘'PvIPFLLaNT WITMuRaL'N = 177,087 TOTaL FLUIDS IN TaNK = 1707,02 PROPELLaMT LIQ,+VaP. = 1707,02 

TilPUST pcOp.RF.nAlwiNG = 914.12 HEW EFF. TANK DENSITY = 1.767B pART.PRES.PROp. VApOR s 14,841 

NEW VITCHCAL FUEROY = I I 067108+01 

**« COMPUTE PP.ESjURANT HEEDED FOR THIS BURN **■* 

Tahk uici. Temperature = 16.S7 stored helium temp. = 40 ,oo new tank ullage vol, = 7 C. 6 O 9 

HEW PROP. Lio. Volume = 182.4s prop. LIO. remaining s 1701,11 WGT, oF prop, vapor r s.«>096 

helium PAP.T.PPr.SSUPr. = . 4 . 2 S 9 total pres, *PPV+PME* = IS.4S2 NOM, operating pres, = 19,100 

HELIUM FLOW rate s ,6u82-C» WEIGHT OF HELIUM USED = .2360+01 NEW TANK PRESSURE = 19,100 

total helium consumed = 2.799 
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EXT. lOaiS * ’ « TIME IStOPlOT 

BUD, I0^ . ■ * AT‘«107 * CASE I 

**«k*««****«r*****»*ir****ll'llr ******* ******* 

ACPS - TEST OEMONSTRATIOM PROBLEM 

*** TANK AND VENT PARAMETER CAUCMLATIONS - COfITO. *** 


******************** COAST NUMBER s •> PRESS. SYS. MO. s 2 ******************** 

«*• PRC- or; noN-VEtiT conditions *** 

FLUID considered - HY(;P.OGEH FLUID TEMPERATURE s 76.62 COAST DURATION - SEC. = 2061. 

UOT.OF LUI. PROP, = 1701. 06R W6T, PROP, VAPOR s S.RS7 WOT. HELIUM IN VAPOR a 2.79R 

PARTiPRES.PKOP.VAPOH = I4.R62 PART, PRES .HELIUM GAS b 7,«99 CURRENT TANK PRESSURE s 18.860 

EFF, INTERNAL EHLROV = -.11067798+07 

******************** burn number = S PRESS.SYS.no. b 2 ******************** 

*** compute Elirr.GY BALANCE FOR BURN *** 

FLUID CONSIDERED - HYI.ROGEII BURN DURATION - SEC, S 7. FLOWRATE FOR THRUST B 2,4«»ft 

TiiRuST PHOP, Remaining s 974.12 propellant in tank s 1707.02 eff. internal energy b -. 1 |06779b*07 

ts 3 EFF. talk energy s -. I 1 70*58+06 TOTAL FLOWRATE s 4.S64 

I ■ 

M **« cOliPl.TE RESULTING TANK CONDITIONS *** 

PROPELLANT RITIUlRAllN s 77,911 TOTAL FLUIDS IN TANK s 1677,11 PROPELLANT LIO,*VAP, a 1677,11 

TMFUST FRtP.RF.IlAlNINfi a 9IS.S6 MEW EFF. TANK DENSITY B 7.6929 PART. PRES, PROP. VAPOR a 14.818 

NEW INTERNAL F.NLlUiV s -. I 1 06S0B6+07 

- *w« CONPUTC PRESSMRAKT NEEDED FOR THIS BURN **» 

Tank LIO, TeMPf.HaIUMF. s 76.S6 stored helium temp. a 40,00 New TaMK ullage VOL, b T8.406 

NEW prOf. LKi, VULMriE s 77't.6S pROp, LIQ. REMAINING s 1666. SS WGr. OF PROp, VApOR a 6.SS28 

helium part, pressure a 4,232 TOTAL PRES. +PPV+PHE* s IS.727 MOII, OPERATING PRES. B 19,100 

HELIUM FLOW RATE | s .479p-f,| WEIGHT OF HELIUM USED s ,7262*00 NEW TANK PRESSURE s |9,|00 

total helium consumed s 7.I2S 


t 
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NAME USERS MAME ***** a*************** pAGE 18 
l-'EPT 6211 • the 1NTE6RATEP MATH MODEL * DATE 17 APR 71 

EXT, 10215 * * TIME ISl02t07 

BLO. luH * ATR107 * CASE | 

*********t ************** *************** 

ACPS - TEST DEMOMSTRATION PROBLEM 
*** TANK and Vent parameter calculations - CONTD. *** 


******************** coast number a 6 PRESS, SYS. NO, s ?. ******************** 

*** PRE- OF. MON-VEMT COMDITIONS *** 

F'J'in COnSloERRO - UYdROGEH fluid TEMPERATURE = 36,57 COAST DURATION - SEC* = • 

H'JT.OF LI^/. PR'N*. - f666.5«l1 WOT. PROP. VAPOR s 6.562 HGt.HELIuM IN VAPOR s 1,<25 

part. PRES, PROP, VAPOR = IMiSm PART, PRES. HELIUM GAS s 1.R|5 CURRENT TANK PRESSURE = 18,756 

EFF.lflTERtiAL EMCRCiY = -. I I 061R194-01 

******************** 3ii|jS number s 6 PRESS, SYS, NO, s 2 ******************** 

**« COMPVTE EIIERGY BALANCE FOR BURN *** 

fluid CONSIDEHF.I) - HYpROGKd BURN DURATION . SEC. = H, FLOWRaTE FOR THRUST 5 2,N<>8 

THRUST FHf p.RFIlAlNlUG = 915.56 pROpELLANT IN TANK s 1671.11 F.PF. INTERNAL ENERGY s I 1 061919*01 

EFF. TANK ENERGY S -. 1 8111511*06 TOTAL FLOWRATE s H.569 

*** CONFUTE resulting TANK CONDITIONS *** 

FFOPFLLANT wiTHOPAWiI s I 6 .II 9 TOTaL fluids in TANK = 1656,77 PROPELLANT LIO,*VaP. s 1656,77 

THRUST PHOP.RF.HAINING s 906,62 NEW f.FF, TANK DENSITY = 1,6568 PART, PRES, PROP. VApoR s m.771 

NEW INTERWAL ENERGY = -.(I06M6N7*01 

*** COMPUTE PPESSURANT NEEDED FOR THIS BURN *** 

Tank LIO, TEMPERAIUHF = 16,5H stored helium temp, a HO, 00 NEW Tank ullage VOL, a 82,200 

NEW PkO(>, LlQ, VOLUME s 170.86 PROp, LIO. REMAINING a I6H9.92 WGT. OF PROP, VApOR r 6,8510 

l»tLlUl 1 PaP.T.PPF.SSURS = H.127 TOTAL PRES, *FPV*PHE* a 18,504 NOM, OPERATING PRES, a I9,|00 

helium flow RATE = . 517 ( 1-01 WEIGHT OF HELIUM USED a ,1854*00 NEW TANK PRESSURE s (9.100 

Total helium co/iSumed a 1,11 j 
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F.XTi lOZiS * * time ISI02I07 

BLD. lOM * ATmOT * CASE I 

*************************************** 

ACfS • TEST DEMOMSTRATIOM PROBl.EM 

Kr** tank and vent PARAMETER CALCULATIONS - CONTO. *** 


•winWn*************** COAST HUMBER s 7 PRESS. SYS.fJO. s P ******************** 

*** FJRE- OR HON-VEMT CONDITIONS *** 

FLUID CONSIDERED - i HYdROGEII FLUID TEMPERATURE s 36. SS COAST DURATION - SEC. » S36, 

UGT.OK LIQ. PROP. I s 16‘tR.90e UGT. PROP. VAPOR a 6.858 WGT.MELIUM IN VAPOR a 3.3|| 

PART.PRCS.PHOP.VAPOK a IN.TRI PART. PRES. HELIUM CAS a 3.953 CURRENT TANK PRESSURE s I8.7R<4 

EFF.lHTLHIiAL F.fICROY a -.11063599+03 

t ■ . ■ 

P*****in>+**#+*+**»** BURN NUMBER a 7 PRESS.SYS.NO, a 2 **************+***** 

**« COIlPUTE ENERGY BALANCE FOR BURN *** 

fluid CCNblDERED - MYORuGEN BURN DURATION - SEC. S 66. FLOWRATE FOR THRUST S 2. 498 

TilRUST FRuP.RF.IlAlNIIlG a 90/S.62 PROPELLANT IN' TANK 8 1656.77 EFF. INTERNAL ENERGY s -.11063^99+03 

FFF. TAriK energy a -.15012108+06 TOTAL FLOWRATE s 4,564 

•** COMPUTE RESIILTINC TANK CONDITIONS *»* 

propellant WITMOPaUN 5 ‘301.686 TOTAL FLUIDS IN TANK a 1355,08 PROPELLANT LIO.+VaP, a 1355.08 

TMBUST prop. remaining a 741,53 HEW EFF. TANK DENSITY 8 2.99|0 PART, PRES, PROp.VApOR 8 13,513 

NEW INTERNAL EtIEKOV a -.1(078394+03 

'cOriPMTE PRESSUPaNT needed for this BURN •*» 

Tank LIO, TEMPERAfUnE a 36,00 stored helium temp, a 40,00 NEW TaNK ULLAGE VOL, B 152.365 

HDI prop. LIO, VoLUMr a 300.69 PROP. LIO. REMAInIhG 8 1343,37 WGT. oF PROP, VAPOP B 11.7113 

UELlUn PANT, PRESSURE 8 5.587 TOTAL PRES, +PPV+PHE* a 15,613 NOM, OPERATING PRES, B 19,100 

HELIUM FLOW RATE i a ,6976-01 WEIGHT- OF HELIUM USED 8 ,46|l+0| NEW TANK PRESSURE 8 19,100 

total helium CONSUMED a 7.922 
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NAME USr.RS NAME ***'****************** PAGE MO 
DEPT 6211 * THE INTEGRATED MATH MODEL * DATE IT APR 71 

EXT. 1021S * * TIME ISI02I08 

CLD, lOM ' * ATM107 * CASE | 

****** ft ****** *************** *********** 

ACPS - TEST OEMONSTRATION PROBLEM 
*** tank ano Vent parameter calculations - comto. *** 


******************** COAST NUMBER s 6 PRESS.SYS.NO. B R ******************** 

»*• PRE- OR non-vent conditions *** 

fluid COMSIOERFO - HYPPOGEH FLUID TEMPERATURE s 16.09 COAST DURATION - SEC. s 7IM. 

l.'GT.OF LIN. PROP, s nm,l98 U6T. PROP. VAPOR = ||,«82 VI6T, HELIUM IN VAPOR s 7.922 

Fart, PRES, PROP, Vapor = h.tio part. pres, helium gas b s.om current tank pressure s is.tti 

FFF.INTENI AL ElltPOY s -.11076687+01 

******************** BURN NUMBER s 8 PRESS^5YS*N0, s 2 ******************** 

**« COriPlJTl; EliERGY SALAMCE FOR BURN *** 

fluid considered - HYCROGEII RUPN duration - SEC, s 12. flowrate for THRUST = 2.M98 

TilRUST PROP, remaining a 7 mI,s 1 PROPELLANT IN TANK s USS.OS EFF. INTERNAL ENERGY s -.11076687+01 

EFF. TANK energy a -. 1 1172769+06 TOTAL FLOWRATE a M.S6M 

**• COMPUTE nrSULTlNG TANK CONDITIONS ***\ 

propellant WITlIunAWiJ a IMT.NZO TOTAL FLUIDS IN TaMK s 1207.66 PROPELLANT LIO.+VAP, = 1207.66 

thrust rROP.RFMAINIDG r 660. 06 NEW EFF. TANK DENSITY s 2.66S6 pART. PRES, PROP. VAPOR s 12,991 

NEW INTEHIiAL EfIEHGY = -. I I 07129 1 101 

■ *** COMPUTE PRESSURANT NEEDED FOR THIS BURN **+ 

tank LlO. temperature = IS. 76 STORED HELIUM TEMp. a NO. 00 NEW TANK ULLAGE VOL. a IR6.1I2 

LEW PROP. LIO. VOLMilF. = 266. 7S PROP, LIQ. REMAINING = II91.8N WGT, OF PROP, VAPOP s n.8|R8 

helium PAi.T.PRESSUHF. = 6.109 TOTAL PRES, *PPV*PME* s I7.07S N0I1. OPERATING PRES, s 19,100 

HELIUM FLOW RATE a .82S8-0I WEIGHT OF HELIUM USED s ,2667+01 NEW TANK PRESSURE s 19,100 

total helium CONSUMEP a I0.SB9 
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IsAIlt MAnt «WWWW WWWWWWWHWWWWw-„_ r 

i DEn 6213 • the integrated MATH MODEL * DATE IT APR 73 

EXT. 3023S ■* * TIME |S»02«06 

bLD, I DM * ATM 307 * CASE I 

A************************************** 

I ACPS - TEST OEMOMSTRATION PROBLEM 

*** TANK AMO vent PARAMETER CALCULATIONS - CONTD, *** 


******************** COAST NUMBER = 9 PRESS. SYS. NO. s ?. **t»a**************** 

**• PRE- OR HON-VEMT CONDITIONS *** 

FI.UID considered - ‘ HYdROGEM fluid temperature s 3S.82 COAST DURATION - SBC* = S68, 

V.'OT.OF LIQ. PROP. s II93.7I3 WGt. PROP. yAPoR s I3.9MT HCt.MELIuM IN VAPOR s I0.S89 

PART. PRES. PROP, VAPOR = ll.iaN PART. PPES. HELIUM GAS s S.M69 CURRENT TANK PRESSURE = I8.S93 

EpF.INTEKMAL ElltROY a -.M07IT68+03 

******************** gORM fjUMBER s 9 PRESS. SYS. NO. n 2 ******************** 

**• COMPUTE EUEPCy BALANCE FOR BURN 

FLUID CONS I DERF.O - ! UYtROGEM RURM DURATION'- SEC, S |04, FLOWRATE FOR TMRUST B 2.M9B 

THRUST PRi'P.RF.llAiMilJfi = 660. B6 PROPELLANT jN TANK 8 I2C7.66 EFF. INTERNAL ENERGY a -.M0TI76B*03 

EFF, TANK energy - 0n6S23fl9^0S TOTAL FLOWRATE B 4.S6M 

compute resulting tank CONOITIOHS *** 

PKOPELLANT WITHOPavN s NTS. 122 TOTaL FLUIDS IN TANK B 732, S4 PROPELLANT LIQ.+VaP, 8 732,34 

THRUST PHc.P.RFMaINInG = 400.86 NEW EFF. TANK DENSITY S 1.6169 PART. PRES. PROP. VApOR S II.0T2 

NEW- INTEHMAL.F.NLROY' s -. I 1 009992t03 

COMPUTE PRESSMRaNT NEEDED FOR THIS BURN *** 

Tank LIO, TeMPf.Matmre = 34,83 stored helium temp, = 40,00 NfH TaMK ullage VOL, 8 294,714 

NEW PROP, LIO. VOU'ilF. = ISP..3S PROp, LIQ. REMAINING S 713.62 WGT. OF PROP, VApOR s |8,9|78 

I'ELIUH part. PRESSURE = 0.029 TOTAL PRES. *PPVtPHE* s 14.433 NOM, OPERATING PRES, 8 19,100 

1'EI.Hfn FLOW RATE 8 .1096+00 HEIGHT OF HELIUM USED 8 ,1141+02 NEW TANK PRESSURE 8 19,100 

total HELIUM COfisUIXP a 22,001 
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KAHE USERS NAME ********************* PAGE 4? 
f'F.PT 6211 * THE INTEGRATED HATH MODEL * DATE 17 APR 71 

EXTi 10211 * * time |S|02i09 

OLD, I OH * ATMIO? * CASE I 

«***«* ******* ********************** 

ACPS - test DEMOfiSTnATlOH PROBl.EII 

*** TANK AND VENT PARAMETER CALCULATIONS - COHTO, **>* 


******************** COAST NUMBER s 10 PRESS.S'/S.NO, s 2 ******************** 

*** PRE- OR NON-VENT CONDITIONS *** 

FLUID CONSIOEREl) - HYDROGEN FLUID TEMPERATURE = II.IH COAST DURATION - SEC. = 1 876, 

KOT.OF LI'j. PROP. = 712.672 ' HOT. PROP. VAPOR s 19,866 WGT. HELIUM IN VAPOR s 22,001 

PART, PPES. PROP, VAPOR = M,6P9 PART, PRES, HELIUM GAS s 7,OSO CURRENT TANK PRESSURE = 18,719 

rrF.lNTEHHAL ElltHGY = -.11001698+01 

******************** ciiRN number s 10 PRESS, SYS, NO, 8 2 ******************** 

+** COMPUTE ENERGY QALAMCE FOR BURN *** 

FLUID CONSIDERED - HYDPOGEII BURN DURATION - SEC, a 72. FLOURATE FOR THRUST a 2.H9R 

TMRUST prop. remaining a h 00,86 PROPELLANT IN TANK a 712. IH EFF, INTERNAL ENERGY a ». M 00 1 A9A+ni 

M ErF, tank Energy s -,6hi 12928+os to'^au Flowrate s h,16h 

o3 **« COMPUTE RESULTING TANK CONDITIONS *** 

propellant WITMDRaUN s IHS.SgH TOTAL FLUIDS IN TANK a 166. 9 H PROPELLANT LIO.+VAP. a 186, PH 

TMRUST PHOp. remaining = 121,19 NEW EFF. TANK DENSITY a 1.2911 pART. PRES, PROP, VApOR c ll,17H 

N£W internal ENEROY s -. I 0921 1 82+01 

’»*’* COMPUTE PFESSMFANT HEEDEO FOR THIS BURN *** 

Tank liq. Temperature a IH .96 stored helium temp, a ho , 00 new tank ullage vol, a 127 , hi« 

NfcW PMOp. LIo. VOLUME s 121.60 PROp, LiQ. REMAINING r 161, HI WGT, OF PROP, VApOR c 21,1116 

liEl.lUll part, PRESSURE s 7,726 TOTAL PRES. *rPV+PHE* a 17,689 IIOM. OPERATING PRES, a 19,100 

MEI.IUn flow RATE a .H79I-0I WEIGHT OF HELIUM USED a ,|S28tO| NEW TANK PRESSURE a |9,|00 

TOTAL HELIUM CONSUMED a 21,S29 
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ciEPT 62 lV * 

KXT. 10215 * 


THE INTEGRATED MATH MODEL 


* TIME I5t02l0«» 


bLl'. lOH * ATHIOT * CASE I 


ACPS - TEST OSftOfiSTRATION PROBLEM 


*** tank and vent parameter calculations - COMTO. *** 


*»•#**♦*★*♦)»»**♦***♦* COAST NUMBER = II PRESS. SYS. NO, = ?. h******************* 

PP.E- OR hon-vemt conditions *** 

Fluid consioereo - iiydrogeu fluid temperature = iii.oi coast duration - sec. = stionb, 

WGT.OF LI'I. PROP, 5, 522.176 H6T. PROP. VAPOR = 6M.768 W6T. HELIUM IN VAPOR s 21.S2«» 

part, PRES. PROP, VAPOR = 17.502 PART. PRES. HELIUM GAS = 6.111 CURRENT TANK PRESSURE s US. 816 

EFF. INTLRMAL energy = -,7772lP76t02 

»*» POST VENT COliniTlONS *** 

Tank vemt phessure = 24. io hot. vented fluids = su,9i WGT.OF Lio.iN Tank s URS.ie 

IGT.VApOR IN tank s 16.8S1 HOT. HELIUM IN VArOR s II.IOS TOTAL FLUIDS IN TANK = SUS.IU 

Part. PRES. PROP, VAPOR s is. 762 PART. PRES. HELIUM GAS = U.llB VENTED TANK PRESSURE s 2 U .|00 

ErF.lMTERiiAL- ENERGY = -.RS 977 RU 2 + 0 R 

****<n>*********«**** burn number = 1 1 PRESS, SYS, NO, s 2 ******R************* 

• I 

*** COI'.FUTC jEllERGY BALANCE FOR BURN *** • 

FLUID CONSIDERED - tlYOROGEII BURN DURATION . SEC, a |6, FLOWRATE FOR THRUST a 2,U98 

THRUST PRCP. remaining s 121,19 PROPELLANT IN TANK a HSS.I8 EFF. INTERNAL ENFRGY a -.9 r9779g2*02 

EFF. TAflK ENERGY a -,‘i522ST71tOS TOTAL FlOWRATE a 1.8SI 

»*• COMPUTE resulting TANK CONDITIONS *** 

propellant WITHdRa'. fi a 62.22S TOTAL FLUIDS IN TANK = 462,91 PPOPELLANT LIO.tVaP. = 46«).BI 

thrust pROp.REIlAlNIfiG a 2H0.81 MEW EFF. TANK DENSITY a 1,0170 PArt.PRES.PROr, vApOR a 2C.119 

N£W INTERMAL ENERGY a -.916SI 6SI +02 

COMPUTE PRESSURANT NEEDED FOR THIS BURN ♦** 

Tank LIu, TEMPERaTIIRF. a 16.89 stored helium temp. a 40.00 NFW TANK ULLAGE VOL, a 1S4.HS2 

NEW PROp, LIO, volume a 98.61 pROp. LIQ. REMAINING a 410.16 HGT. OF PROp. VApOR a 19.44S0 

HrLIUn part. PRESSURE = 1.B62 total pres, *PPV+PHC* a 24,201 NOM, OPERATING PPES, a I9.|00 

HELIUM FLOW rate a. ,0000 HEIGHT OF HELIUM USED a .0000 NEW TANK PRESSURE a 24.201 

TOTAL HELIUM CONSUMED a 21.S29 
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KAilE USrRS NAMK ********<»*******«**** pAr,P ^4 
CEPT A2I3 * THE INTEGRATED MATH HDfiEL * DATE IT APR 73 

EXT. 3!)23S *r 4 time ISt02l09 

BLD. loM ' * ATmoT * CASE I 

4 *444 4 4*4 444****44*4*44 *«t*******«t*«*4* 4 

ACPS - TEST DEMONSTRATION PROBLEM 

*4* TANK AMO vent PARAMETER CALCULATIONS - cONTd. *** 


***444*4*4*******44* COAST NUMBER s 12 PRESS, SYS. HO, = 2 *4****************** 

444 png. OP nON-VENT conditions *44 

fluid considered - hydrogen FLuIO temperature = 39.03 

VICiT.nK UIO. PRfiR. = R29.SI2 WGT. PROP. VAPOR = M0.2R8 

: Part, PRES. PROP, VAPOR = 20.B13 part, pres. helium gas = 3.87s 

) EFF.lNTtNNAL ENERGY = -. 92R90«9 3+02 

5 

• *44 POST VENT COIIDITIONS *** 

j Tank vent PRessupt = 24.10 vigt, vented fluids = i.bo 

. '•GT.VApOp IN tank = TR.MflS V'GT, HELIUM IN VApOR s 13.694 

: part, PRES. PROP, VAPGR = 20.317 PART. PRES. HEI.IUM GAS = 3.783 

I * . RTF. lNTtK!IAL ENERGY s -. 9 3436S32+02 

! N) 

i il 44444444444444444444 SIIRN NUMBER = 12 PRESS . SYS . NO . 

, 444 COMPUTE ENERGY BALANCE FOR BURN 444 

[ FLUID COflSIDERFD - HYrROGCN PURI! DURATION - SEC. = lOO. FLOWRATE FOR THRUST s 3.R98 

T-iPUST Fl'C-P . remaining = 200.03 PROPElLAnT in TANK = M38.93 EFF. INTERNAL ENERGY = -.93436S32+02 

! FFF, TANK ENERGY = -.‘(V783S30+04 TOTAL FLOWRATE = 3.8IS 

. 444 cOllPUTF RESULTING TANK CONDITIONS *** 

I 

PFOPELLANT WITHDPa'-'M = 381, R7R TOTAL FLUIDS IN TANK = 99. S9 PROPELLANT LIQ.+VAP. s 86,99 

Tilr.UST rROp.REfl.MWING = 31.07 MEW EFF. TANK DENSITY = .1919 pART.PRES.PROp.VApOp = 17.623 

fivW lilTEHiiAL ENERGY r -.'19986179+02 

444 compute PRESSURANT HEEDED FOR THIS BURN 4*4 

Tank LIO, TENPERAHRE = 37,67 stored helium temp, s 90.00 

f'L'W pwOp. LlO. VOUUiiE = 9.08 p['.Op. LIO. REMAINING = 93. S6 

HELIUn part. PRESSURE = 2.H83 TOTAL PRES. 4ppv+p|lE4 r 30. SI 2 

HELIUM FLOW HATE s ,0000 WEIGHT OF HELIUM USED = .0000 

total HELIUM CONSUilEP = 23.S29 


NEW Tank ULLAGE VOL, = 993.180 
HGT. of prop. VApOR s 93.3789 
NON. operating PRES. = 19.100 
NEW TANK PRESSURE = 20.SI2 


COAST Duration - sec. = 9SB9, 

WGT. HELIUM IM VAPOR = I3.I0S 
CURRENT TANK PRESSURE = 29.688 


WGT. OF LIO. IN Tank s 923.97 
TOTAL FLUIDS IN TANK s 981.07 

VENTED tank PRESSURE = 29.100 


2 4444444444444444*444 


LMSC-A99] 





EXT. -Juiis * * lUIL IUUJ.1UI 

FLP, )0M * ATH-»07 * CASE t 

I,*******************'****** ************* 

ACPS - TEST DEMONSTRATION PROBl.EM 
*** TANK AND VENT PARAMETER CALCULATIONS - COUTO, *** 


******************** FINAL engine shutdown PROPELLANT TANK CONDITIONS ******************** 


*** cdnpute final tank conditions *** 


FLUID CONSIDERED - 
l.’GT.OF LIU. PRC'f. 

• . • Part, PFES, PROP, VAPOR 

) EFF.INTEHIiAL EfXROY 


hydrogen fluid TEMPERATURE 

= NT. SOS W6T. PROP. VApOR 

= I7.6M9 PART. PRES. HELIUM GAS 

s -.H9B7NN29T0P 


- FINAL tank temp. = 77.ARN TOTAL VENTED GAS WOT, 

1 WOT, OF LIQ. RESIDUALS = HI. SOS 

1 . 

’ *** COMPUTE PRESSURIIATION SYSTEM WEIGHT *** 



total helium gas WF.MO = 


27.S29 


WGT.PRESSURANT SYSTEM 



9 


77,68 

H7.476 

2.839 


SA.70I4 


7S.29M 


coast duration - SEC. s TOO, 
U6T. HELIUM IM VApOR s I2.6SM 
CURRENT TANK PRESSURE = 20.S77 


WGT, OF GAS RESIDUALS s S6.Q90 


/ 
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NAIT USERS NAME *************<(******* 

CrpT 6213 * THE INTEGnATEfl MATH MODEL * 

EXT. loa}** * * 

rLP. lOM . * ATM307 * 

*****««« A** ****««**** «**«*«*** 

ACPS - TEST DEHONSTRATIOH PROBLEM 


*** final tank sizing calculations *** 


OXYGEN 


MliMBER OF tanks 

iiatepial type 
IHSHLATION type 

n.UIO V!GT. (TOTAL) 
FLUID VOl.ur.E /tank 

'•'GT AOi'Er* CVL sect 

OlAllETEP (FT)/TAHK 

SUHFACE area /tank 
TANK volume / tank 
tank S.'GT. (L3) TOT 
INSUL, THICKNESS 
INSUL, WT (LQ) TOT 


I 

?, 

a 

.SN300R+04 

.76678^402 

.S44434400 

.S0660040I 

.fl‘’2R|«402 

.7R0S0O402 

,44B47640R 

.200000401 

.364606402 


N) 

05 

O 


PAGE 46 

DATE 17 APR 73 
TIME ISI02M0 
CASE I 

***««««** 


hyorogen 

1 

2 

? 

.22SR20404 

.S09397403 

,234124402 

.S00000401 

,446301403 

,S2SISl403 

,221240403 

,200000401 

,102240403 
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Cf.PT ftgll ’W I ''t »I1 > I Ul- — r ii i iii I .1 

nXT. 1021S • * * TIME IStOZlIfl 

et.O. lOM * AmiOT * CASE I 

***«♦* ********************************* 

ACPS - TEST PEMONSTRATION PROBLEM 

*** ACCUMULATOR SIZIH6 CALCULATIONS *** 


OXYGEN 


HYDROGEN 



- r.imOBR OF TANKS 
I’ATEHIAl. TYPE 
IIISMLATION type 

I i!GT Aoorr cyl sect 

DlAHETf.F. (FT) /TANK 

' surface area /tank 

TANK VOLllIlE / TANK 
tank W6T, (L3) TOT 
' INSUL, tuickness 
H'SUL. KT (1.3) TOT 
, GAS residuals WT. 


I 

I 

B 

,000000 

,IA8TfiA+0l 

.8007*54+0 ( 

,2S(5000+ni 

.1H702I+02 

, 200000+01 

.124117+01 

.687188+02 


t 

( 

4 

,000000 

.SI7744+0I 

.B40B72+02 

.72SOOO+02 

,ioonso+o‘i 
,200000+01 
.1 I7IS6^02 
,6*5Sl7S+02 
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nape uskrs MAME a******************** 

prpT A2I3 * the Integrated math model * 

EXT. 102T*; • ■* * 

3LD. t0^ * ATmOT * 

ACPS - TEST OEHONSTRATION PROBl.Efi 


PAGE B8 

DATE IT APR 73 
TIME istoatio 
CASE I 

********* 


*** TANK propellant ACOUlSlTjot; DEVICE COMPUTATION*** 

OXYGEN HYDROGEN 

TYPE ACO, DEVICE 
DEVICE VIT. (LBS) 

TRAPPED nv DEVICE 

r.Esio. Propellant 


SURE TENSION SURF TENSION 

.|B0nS3 + D2 .7SIB8U02 

.II222S+03 ,R3SnV9*02 

.902ESR+02 ,M3SfiNR+02 


N) 

I 

OJ 

N) 
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L'U' 1 hE M ^ 

rHE IHTEGRATEO HATH MODEL 

* date 

IT 

AH 0-73 



EXT, T023S * 



* TIME 

|Si02i IQ 



3ur. lOS * 

.AT4307 

* CASE 


1 



* * * * 

* * * * * * 


********** 

* * * * 

* 

***** 





ACPS - TEST OEMOnSTRATIOM PROBLEM 








*** COMPONENT height SUMMARY *** 






... oxioyzer ... 



... FUEL 

• • • 




COEPOHENT 

insulation 




COHPPMENT 

INSULATION 

COr'.roNEiiT 

CODE 

WT. (LBS) 

wT. (LBS) 

COMPONENT 

CODE 


WT, (LBS) 

WT, (LBS) 

LINE 

LNOI 

^.009 

.188 

LIHE 

LN2I 


3.S08 

.920 

ti;e 

FTOI 


.000 

TEE 

FT2I 


.331 

.000 

LINE 

LN02 

S.M66 

• 2S6. 

LINE 

LN22 


4,7«3 

1 .2S4 

TAP 

FT02 

,3H2 

.000 

TAP 

FT22 


.262 

.000 

LINE 

LM03 

,87S 

.041 

LINE 

LN23 


.76S 

.?0| 

valve 

IVOI 

6.3m 

.000 

VALVE 

1V02 


6.|?l 

.000 

LINE 

Li;o« 

m^T 

.021 

LINE 

LN24 


.383 

. 1 no 

VALVE 

cvna 

N.N06 

.000 

VALVE 

CV04 


4.2SS 

.000 

LIME 

. LliPS 

I.4S8 

.068 

LIME 

LN2S 


1 .27S 

.334 

tap 

FT03 


.000 

TAP 

FT23 


.262 

,000 

LINE 

LMn.-, 

.729 

.034 

LIIIE 

LN26 


.638 

.167 

HLG 

PROI 

9,630 

.000 

REG 

PR02 


P.392 

,000 

LINE . 

LN07 

1.913 

.OSl 

LIME 

LN27 


1.674 

,2S| 

AC CUM 

Acni 

m,792 

1.241 

ACCUN 

AC02 


1008.496 

11.716 

LINE 

Lf:o3 

I.S3I 

.041 

LINE 

LN2R 


1.198 

.18? 

UK>! 

Hxn 1 

22, OSS 

.000 

HEX 

HX03 


61.123 

,000 

LINE 

' Li, 09 

.333 

.Oil 

LIMfc 

I.N29 


.S7'l 

.091 

VALVE 

cvbi 

9,000 

.000 

VALVE 

CV03 


8.2l‘l 

,000 

LINE 

i,i: 1 0 . 

,iai 

.01 1 

line 

I.N30 


.S7N 

.09 1 

HUMP 

HHOI 

73,362 

.000 

PUIIH 

HP02 


34.S69 

.000 

LINE 

LI: 1 1 

4.373 

.213 

line 

LN3I 


4.373 

1 .0914 

VaLVE 

SVO 1 

4,142 

.000 

VALVE 

SV02 


4.406 

.000 

line 

LN 1 2 

.S47 

.02S 

LINE 

LN32 


.437 

.109 

Tap 

FTOM 

.•534 

.000 

TAP 

FT24 


.342 

,000 

LIME 

l.llll 

1,093 

.OSO 

LINE 

LN33 


,B7S 

.219 

TANK 

TKOI 

63.8S3 

36.461 

TANK 

TK02 


296.438 

182.240 



*** COMPONENT HEIGHT SUMHARY TOTALS *** 






CONSUMER WEIGHT - 

LBS 

.IS937S+03 






OXIOYZER SYSTEM WT 

, «LBS 

.2S3000+03 






0X10 

insulation vit 

- UBS 

.3B713P+02 






FUEL 

SYSTEI-: NT. - 

LBS 

,I4S622*04 






FUEL 

INSULATION WT 

- LBS 

.198660^,03 






total 

SYSTEM HT. - 

LBS 

.210628*04 






a FIN 
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Section 3. 0 

LIBRARY ROUTINES AND SUBPROGRAMS FROM OTHER SOURCES 


This section contains pertinent library routines and a brief resume of subprograms 
from other sources which are employed in Program TCIMM. The list includes 
Lockheed system routines, UNIVAC FORTRAN V math function routines, UNIVAC 
FORTRAN V math fimction routines. National Bureau of Standards TABCODE routines 
and modified versions of the University of Idaho, Thermodynamics Properties of 
Oxygen and Nitrogen Program. 

3. 1 ' LOCKHEED SYSTEM ROUTINES 

This subsection contains descriptions for those system routines which are unique to 
Lockheed Missiles & Space Company (LMSC). 

3. 1. 1 Subroutine DATE 
Description 

Subroutine DATE provides the current date through the following Fortran CALL 
statement: 

CALL DATE (COL, IMAGE) 
which stores nine characters of the form 
ddAxxxAyy 

where dd is the day of the month, xxx is the usual tliree-letter abbreviation for the 
month, yy is last two digits of the year, and A is a blank. ^ . 

The date will be stored with its right-most character in column COL of the array area 
beginning at image. The field COL may range from 1 to 120. 
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An example for the use of DATE is shown below: 

DIMENSION B{2) 

CALL DATE(9,B) 


where a two-word array B (12 characters) is specified and the complete image would 
be 


This may then be written on the standard Fortran list output by: 

,WRITE(6,3)B 
3 FORMAT(A6, A3) 


Calling Sequence 


CALL DATE (COL, IMAGE) 

Name Type I/O Dimension Description 

COL I The right-most character is in this column 

of array IMAGE, 

IMAGE 2 Array in which date and time is stored. 


Significant Variables 


None 


Subprograms Referenced by this Subprogram 


None 
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[Subprograms Referencing this Subprogram 


Routine Type 

C0NTRL P 


Listing Reference Page 


I None 

Flow Chart 


None 
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Reference 
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3.1.2 Subroutine TOD 
Description 

The current time is available through the Fortran statement 
CALL TOD(COL, IMAGE) 
which will cause the eight characters 
hh:mm:ss 

representing the hours, minutes, and seconds of the current time (on the 24-hour 
clock) to be stored in Fieldata code with the right-most character in column COL of 
the array area beginning at IMAGE . 

An example of use of TOD is shown below: 

DIMENSION A (2) 

CALLT0D(8,A) 

where a two-word array A (12 characters) is specified and the complete image would 
be hh:mm:ss0000. 

This may then be written on the standard Fortran list output by: 

WRITE (6, 2) A 
2 FORMAT(A6, A2) 

Calling Sequence 



CALL TOD(COL, IMAGE) 


Name 

Type I/O Dimension 

Description 

COL 

I 

Right-most character of data stored in 
array IMAGE 

IMAGE 

I 2 

Storage area for current time on the 24 hour 
clock 


3-4 


LOCKHEED MISSILES & SPACE COMPANY 


LMSC-A991396 


iignificant Variables 
None 

iubprogram s Referenced in this Subprc^ram 
None 

iubprograms Referencing this Subprogram 

Routine Type 

PAGE S 

■iisting Reference Page 

None 

Flow Chart 

None 
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3.2 UNW AC MATH ROUTINES 

The LMSC 1108 library contains the UNIVAC FORTRAN V standard mathematical 
function routines, of which the following are used by TCIMM: 


SQRT 

Square Root 

CBRT 

Cuba Root 

EXP 

Exponential 

DEXP 

Double Precision Exponential 

ALOG 

Natural Logarithm (Sn x) 

BljQfG 

Double Precision Natural Lc^arithm 

ABS 

Absolute Value 

DABS 

Double Precision Absolute Value 

AMAXI 

Sets Largest Value of Arguments 

AMTNI 

Sets Smallest Value of Arguments 

DBLE 

Converts REAL to Double Precision 


3.3 NBS- TAB CG(DE ROUTINES 

3.3. 1 Hydrogen Thermodynamic Properties Routines 

In order to provide for the closed form calculation of the thermodynamic properties oi 
hydrogen as needed in TCIMM, a set of subprograms from the NBS-TABC0DE were 
integrated into TCIMM. 


The subprograms used are as follows: 


Name 

Function HPTCP 
Function HPTCV 
Function HPTGAM 
Function HYENTH 
Function PSATH 
Fimction PTDENS 
Function PTHEAT 
Block Data SPHTDA 
Function TSATH 

3 


Use 

Cp of Hydrogen 
Cv of Hydrogen 
Ratio at Cp/Cv 
Enthalpy of Hydrogen 
Saturation Temperatures 
Density of Hydrogen 
Specific Heat Subprogram 
Thermodynamic Constants 
Saturation Pressure 
6 
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A detailed description of the above subprograms will be found in References 3.3-1 and 
3.3-2. Subprogram listings are also given in Appendix B of this report. 

3.4 UNIVERSITY OF IDAHO - OXYGEN AND NITROGEN THERMODYNAMIC PROP- 
ERTIES PROGRAM 

A unique set of thermodynamic properties computer programs have been developed 
under the guidance of R. B. Stuart of the University of Idaho. The programs provide 
in an integrated set of subprograms the desired thermodynamic properties for either 
ojq^gen or nitrogen. This set of programs has been modified by LMSC to work in 
essentially a single precision mode on the UNFV AC-1108, thus providing very rapid 
closed- form calculation of the desired oxygen and nitrogen properties. The subpro- 
grams employed in Program TCIMM are fully described in Reference 3.4-1. The 
salient features of the subprograms are presented below as abstracted from Ref. 3.4-1. 
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.4.1 DESCRIPTION AND USE OF SUBPROGRAMS 


The subprograms in this package may be classified into five general 
categories: 

A. Subprograms which are used directly in a calling program 

B. Subprograms that are called by other routines in this package 

C. Subprograms that initialize data 

D. Subprograms that convert units of input and output for calculatinj 
properties in engineering units 

E. Heat Transfer Parameter Calculation Subprograms. 


4.1.1 Subprograms Used Directly In a Calling Program 

The units employed for various quantities in the following routines a» 

Temperature — degrees Kelvin 
Pressure--atmospheres 
Density--moles/liter 
Enthalpy-- joules/mole 
Internal Energy--joules/mole 
Entropy--joules/mole-K 

Specific Heat at Constant Pressure— joules/mole-K 
Specific Heat at Constant Volume--joules/mole-K 
Sonic Veloci ty--meters/second 


For input and output arguments in other units, the user, must modify th 
calling program to accommodate the desired units. One example of this is 
presented i n Subsection 3. 4. l. 4. 

‘1. NAME: SUBROUTINE PROP (T, P, D, K, H, S, U) , 

PURPOSE: 


For (K = I) - Calculates density, D, enthalpy, H, entropy, S, and 
internal energy, U for input temperature, T, and 
pressure, P. 

For (K = 2) - Calculates P, H, S, and U for input of T and D. 

For (K = 3) - Calculates P, D, H, S, and U of the saturated vapor 
at input temperature, T. 


For (K = 4) - Calculates P, D, H, S, and U of the saturated liquid 
at input temperature, T. 


2. NAME: SUBROUTINE PFND (T, D, P) 


PURPOSE: Calculates pressure, P, at temperature, T, and density, 

D, from the equation of state. 

NOTE: If only pressure is required in the calling routine the 

use of PFND instead of PROP (with K = 1 or 2) will save 
computer time. 
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3. NAME: 
PURPOSE: 
For (K = 

For (K = 

For (K = 

NOTE: 

4. NAME: 
PURPOSE: 

5. NAME: 
PURPOSE: 

6. NAME: 
PURPOSE: 

7. NAME: 
PURPOSE: 
For (K = 

For (K = 
For (K = 

For (K = 

NOTE: 

2 Subprograms Cc 

1. NAME: 
PURPOSE: 

2. NAME: 
PURPOSE: 


SUBROUTINE DFND (T, P, D, K) 


0) - Calculates density, D, given temperature, T, and 

pressure, P. 

1) - Calculates D and P for the saturated liquid at temp- 

erature T. 

2) - Calculates 0 and P for the saturated vapor at temp- 

erature T. 

If only density is required the use of DFND instead, of 
PROP (for K = 1 or 3) will save computer time. 

FUNCTION VPN (T) 

Calculates the vapor pressure, P, at temperature, T. 


SUBROUTINE TVP (P, T) 

Calculates the saturation temperature, T, for pressure, P. 

SUBROUTINE CPVTD (T, D, CP, CV) 

Calculates the specific heat at constant pressure CP, 
and the specific heat at constant volume, CV, at input 
temperature, T, and density, D. 

SUBROUTINE VSND (T, P, D, K, W) 

1) - Calculates density, D, and the sonic velocity, W, 

at temperature, T, and pressure, P. 

2) - Calculates W for input of T and D. 

3) - Calculates D, P, and W for the saturated vapor at 

temperature, T. 

4) - Calculates D, P, and H for the saturated liquid at ^ 

temperature, T. 

These calculations require modification if a set of units 
other than that discussed below in Section 3.4. 1 . 3 . 

lied Only By Other Subprograms In This Package 

SUBROUTINE VPROP (T, P, D, K, H, S, U) 

Calculates properties of the vapor phase. 

SUBROUTINE LPROP (T, P, 0, K, H, S, U) 

Calculates, properties of the liquid phase. 
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3. NAME: SUBROUTINE DCALC (D, T, P, DL, DH) 

PURPOSE; Performs iterative solution of the equation of state 
for density given temperature and pressure. 

NOTE; The solution density, D, must be bracketed by. trial 
densities, OL, and DH. 

4. NAME; FUNCTION DSATV (T) 

PURPOSE: Calculates an approximate value of the density of the 

saturated vapor at temperature, T. 

5. NAME; FUNCTION DSATL (T) 

PURPOSE: Calculates an approximate value of the density of the 
saturated liquid at temperature, T. 

6. NAME: SUBROUTINE DPDTVP (T, P, DPDT) 

PURPOSE; Calculates the derivative of the vapor pressure equation, 
dP/dT, given temperature, T, and pressure, P. 

7. NAME; FUNCTION CPIG (T) 

PURPOSE: Calculates the specific heat at constant pressure of the 
ideal gas at temperature, T. 

8. NAME: FUNCTION CPSI (T) 

PURPOSE; Calculates /(C°/T) dT ' 

NOTE: Must be called once for each limit of integration. 

9. NAME: FUNCTION CPHI (T) 

PURPOSE: Calculates /C° dT * 

NOTE: Must be called once for each limit of integration. 

10. NAME: FUNCTION DPDD (T, D) 

PURPOSE; Calculates {3P/3p)j 
n. NAME: FUNCTION DPDT (T, D) 

PURPOSE: Calculates (sP/ST)^ of the equation of state. 

12. NAME: FUNCTION FIN61 (T, D) 

PURPOSE: Calculates /{(R/p) - (l/p^) [(sP/STl^]} dp 

NOTE: Must be called once for each limit of integration. 

13. NAME; FUNCTION FING2 (T, D) 

PURPOSE; Calculates /[(P/p^) - (RT/p)] dp 

NOTE; Must be called once for each limit of integration. 
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15. 


NAME: FUNCTION FING3 (T, D) 

PURPOSE: Calculates /(T/p*) [{a^P/aT^)^] dp 

NOTE: Must be called once for each limit of integration. 

NAME: FUNCTION TMELT (P, K) 

PURPOSE; Calculates melting curve temperature for input pressure, 
P. 

For (K = 1) - Calculates melting temperature for oxygen. 

For (K = 2) - Calculates melting temperature for nitrogen. 


16. NAME: SUBROUTINE TEMP (T) 

PURPOSE: Converts input temperatures on the NBS-55 or IPTS-48 

scales to IPTS-68. 

17. NAME: SUBROUTINE WFIND (T, W) , ' 

PURPOSE: Calculates reference functions for temperature conver- 

sions for return to SUBROUTINE TEMP. 

1.3 Data Initialization Subprograms 


Two data initialization subprograms are provided in this package, DATA02 
and DATAN2, for the calculation of the properties of oxygen and nitrogen, 
respectively. The data values in these subroutines are taken from [1] and 
[2]. A call statement to a data initialization routine must precede the call 
statement to any other routine in this package. A discussion of the data 
held in these routines is given in the comments for each subprogram. 

The data initialization routines contain a common block, /METH/M. If 
(M “ 1), integration along isotherms is carried out through the two-phase 
region into the liquid. If (M = 2), the Clapeyron equation across the two- 
phase region is, used. 


.1.4 Unit Conversion Subprograms 


Engineering Units _ 

The following subprograms are designed for use in programs where the 
input and output arguments are in engineering units. The following units 
are employed for input and output variables in these routines; 

Temperature--degrees Rankine 

Pressure--psia 

Density— Ibm/ft^ 

Enthalpy--Btu/lbm 
Internal Energy--Btu/lbm 
Entropy--Btu/lbm - R 

Specific Heat at Constant Pressure— Btu/lbm - R 
Specific Heat at Constant Volume — Btu/lbm - R 
Sonic Velocity— feet/second 
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These subprograms require access to all of the subprograms listed in 3. 4. 1. 1 
and are interposed between the calling program and the subprograms of 3.4. 1. 1 for 
the purpose of converting units of input and output arguments between the system lis 
above and the MKS system used by the subprograms in 3. 4. 1. 1. Unit conversion fa 
tors used in these subprograms are taken from REF. 3.4-2. 

1. NAME; SUBROUTINE PROPB (TB, PB, DB, K, HB, SB, UB) 

PURPOSE; Accepts input arguments in engineering units in the same 
order as SUBROUTINE PROP, converts to the MKS units ac- 
cepted by SUBROUTINE PROP, calls PROP, and converts the 
output arguments to engineering units for return to the 
calling program. 

2. NAME; SUBROUTINE LPROPB (TB, PB, DB, K, HB, SB, UB) 

PURPOSE; Accepts input arguments in engineering units in the same 
order as SUBROUTINE LPROP, converts ^to MKS units, calls 
LPROP, and converts the output arguments to engineering 
units for return to the calling program. 

3. NAME; SUBROUTINE VPROPB (TB, PB, DB, K, HB, SB, UB) 

PURPOSE; Accepts input arguments in engineering units in the same 
order as SUBROUTINE VPROP, converts to MKS units, calls 
VPROP, and converts the output arguments to engineering 
units for return to the calling program. 

4. NAME; SUBROUTINE CPVTDB (TB, DB, CPB, CVB) 

PURPOSE; Accepts input arguments in engineering units in the same 
order as SUBROUTINE CPVTD, converts to MKS units, calls 
CPVTD, and converts the output arguments to engineering 
units for return to the calling program. ‘ 

5. NAME; SUBROUTINE VSNDB (TB, PB, DB, K, WB) 

PURPOSE; Accepts input arguments in engineering units in the same 
order as SUBROUTINE VSND, converts to MKS units, calls 
VSND, and converts the output arguments to engineering 
units for return to the calling program. 

6. NAME; SUBROUTINE TVPB (PB, TB) 

PURPOSE: Accepts input arguments in engineering units in the same 
order as SUBROUTINE TVP, converts to MKS units, calls 
TVP, and converts the output arguments to engineering 
unitsfor return to the calling program. 

7. NAME; FUNCTION VPNB (TB) 

PURPOSE; Accepts input temperature in degrees R, converts to 

degrees K, calculates vapor pressure from FUNCTION VPN, 
and converts the output pressure to psia for return to 
the using program. 
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8. NAME: SUBROUTINE DFNDB (TB, PB, DB, K) 

PURPOSE: Accepts input arguments in engineering units in the same 
order as SUBROUTINE DFND, converts to MKS units, calls 
DFND, and converts the output arguments to engineering 
units for return to the calling program. 


9. NAME: SUBROUTINE PFNDB (TB, DB, PB) 

PURPOSE: Accepts input arguments in engineering units in the same 
order as SUBROUTINE PFND, converts to MKS units, calls 
PFND, and converts the output arguments to engineering 
units for return to the calling program. 


10. NAME; FUNCTION DPDDB (TB, OB) 

PURPOSE: Accepts input temperature and density in engineering 
units, converts to MKS units, calculates (aP/Sp)^ with 
FUNCTION DPDD, and converts the output value to engi- 
neering units for return to the using program. 


11. NAME: FUNCTION DPDTB (TB, DB) 

PURPOSE; Accepts input temperature and density in engineering 
units, converts to MKS units, calculates (8P/3T) with 
FUNCTION DPDT, and converts the output value to *^engi- 
neering units for return to the using program. 


12. NAME; FUNCTION TMELTB (PB, K) 

PURPOSE: Accepts input pressure in psia and K as in FUNCTION TMELT, 
converts pressure to atmospheres, calculates the melting 
temperature using TMELT, and converts the output tempera- 
ture from degrees K to degrees R for return to the using 
program. 


.1.5 Heat Transfer Parameter Calculation Subprograms 

The following subprograms are used to calculate thermodynamic quantities 
of particular interest in heat transfer calculations. Input and output ar- 
guments are in engineering units. 

1. NAME: SUBROUTINE PHIB (DB, CVB, D2B, EDB) 

PURPOSE; Calculates the energy derivative, V (dP/3U) , from the 

equation of state in engineering units. Use^ must follow 
calls of PROPB, CPVTDB, and DPDTB to define input argu- 
ments . 

2. NAME: SUBROUTINE THETAB (DB, CPB, DIB, D2B, SHI) 

PURPOSE; Calculates specific heat input, V(3H/3V) , from the equa- 
tion of state in engineering units. Use^ must follow 
calls of PROPB, CPVTDB, DPDDB, and DPDTB to define input 
• arguments . 
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3. NAME: SUBROUTINE ALPHAS (DB, DIB, TMODB) 

PURPOSE: Calculates the negative of the isothermal bulk modulus, 

V(3P/3V)-p, from the equation of state in engineering 
units. Use must follow calls of PROPB and DPDDB to 
• define input arguments. 

4. NAME: SUBROUTINE BETAS (DB, DIB, D2B, VEXB) 

PURPOSE: Calculates the volume expansivity, (1/V) (3V/3T) , from 

the equation of state in engineering units. Use^ must 
follow calls of PROPB, DPDDB, and DPDTB to define input 
arguments. 

The subprograms described in this section are listed in Appendix B of this manu 
in alphabetical order. Further information on the University of Maho Programs 
may be found in References 3.4-3 and 3.4-4. 
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